[英]How to plot multiple lines in R
我有一个看起来像这样的数据:
#d TRUE FALSE Cutoff
4 28198 0 0.1
4 28198 0 0.2
4 28198 0 0.3
4 28198 13 0.4
4 28251 611 0.5
4 28251 611 0.6
4 28251 611 0.7
4 28251 611 0.8
4 28251 611 0.9
4 28251 611 1
6 19630 0 0
6 19630 0 0.1
6 19630 0 0.2
6 19630 0 0.3
6 19630 0 0.4
6 19636 56 0.5
6 19636 56 0.6
6 19636 56 0.7
6 19636 56 0.8
6 19636 56 0.9
6 19636 56 1
所以我想根据True(Y轴)和False(X轴)绘制它们。
这就是我希望它粗略显示的方式。
什么是正确的方法? 我下面的代码失败
dat<-read.table("mydat.txt", header=F);
dis <- c(4,6);
linecols <-c("red","blue");
plot(dat$V2 ~ dat$V3, data = dat, xlim = c(0,611),ylim =c(0,28251), type="l")
for (i in 1:length(dis)){
datax <- subset(dat, dat$V1==dis[i], select = c(dat$V2,dat$V3))
lines(datax,lty=1,type="l",col=linecols[i]);
}
由于您的数据已经是长格式,并且无论如何我都喜欢ggplot图形,因此建议使用该路径。 读入数据(注意TRUE
和FALSE
不是有效的名称,因此R在列名称后附加.
)之后,以下各项应能工作:
require(ggplot2)
ggplot(dat, aes(FALSE., TRUE., colour = as.factor(d), group = as.factor(d))) +
geom_line()
ggplot2网站上有很多不错的技巧。 另请注意, 此搜索查询还包含有关主题的其他许多不错的技巧。
作为记录,这是我如何处理修改原始代码的问题:
colnames(dat)[2:3] <- c("T", "F")
dis <- unique(dat$d)
plot(NA, xlim = c(0, max(dat$F)), ylim = c(0, max(dat$T)))
for (i in seq_along(dis)){
subdat <- subset(dat, d == dis[i])
with(subdat, lines(F,T, col = linecols[i]))
}
legend("bottomright", legend=dis, fill=linecols)
这是一个基本的R方法,假设在此示例中您的数据称为dat
:
plot(1:max(dat$false), xlim = c(0,611),ylim =c(19000,28251), type="n")
apply(
rbind(unique(dat$d),1:2),
#the 1:2 here are your chosen colours
2,
function(x) lines(dat$false[dat$d==x[1]],dat$true[dat$d==x[1]],col=x[2])
)
结果:
编辑-虽然接受使用小写的true / false作为变量名,但它可能仍然不是最佳的编码实践。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.