绘图错误 - if（nrow（layer_data）== 0）return（）中的错误：参数长度为零

Question

我正在运行一个R代码（不是我的代码），用于读取目录并绘制图表：

library(ggplot2)

dat <- at <- read.table(file="User/alexanderzamani/Documents/results.txt", 
                        sep = "\t", header= TRUE)

#let's just look at a single mutation rate
r <- dat[which(dat$u==0.00010),]

#now let's plot it out
p <- ggplot(r, aes(x=S, y=k, group=pN))
p + geom_line(aes(color=pN), size=2, alpha=0.5) + geom_point() +
    xlab("Overlapping generations (proportion of offspring that survive)") + 
    ylab("substitution rate") + 
    scale_colour_gradient(name="Degree of\npopulationsize\nfluctuation")

安装ggplot2之后，我运行了代码，我显示了一个空白的石英窗口并出现此错误：

Error in if (nrow(layer_data) == 0) return() : argument is of length zero

我之前没有R经验，我们非常感谢任何帮助。

- 修改的

以下是我正在使用的已上传.txt文件的链接 - http://txtup.co/NW6lU

Answer 1

当您执行以下操作时，您正在将dat分类为创建r，其中列u等于0.0001：

r <- dat[which(dat$u==0.0001),]

你有可能没有0.0001的任何值......？

我做了0.1并得到了：