R中图形的线图?
我在R中有一个csv,它有下表:R中图形的线图?,r,csv,graph,linegraph,R,Csv,Graph,Linegraph,我在R中有一个csv,它有下表: df1 <- data.frame( "Pool 1" = c("F1a", "R1a", "F2a", "R2a"), "Start Pool 1" = c("10", "20", "25", "35"),
df1 <- data.frame(
"Pool 1" = c("F1a", "R1a", "F2a", "R2a"),
"Start Pool 1" = c("10", "20", "25", "35"),
"Pool 2" = c("F1b", "R1b", "F2b", "R2b"),
"Start Pool 2" = c("15", "21", "23", "35"),
stringsAsFactors = F,check.names=FALSE)
df1似乎池2的标签是错误的,应该是R1b
如果您不想使用任何软件包,并且只有两行,您可以通过使用plot(NULL…
)指定空白绘图来缓慢构建它,然后将一行放在y=1
,另一行放在y=2
上,并根据这些坐标添加点、文本:
plot(NULL,xlim=c(10,35),ylim=c(0,3),xaxt="n",yaxt="n",
bty="n",xlab="",ylab="")
abline(h=1:2,col="#c0fefc")
points(x = df1[,"Start Pool 1"], y = rep(2,nrow(df1)),
pch=20,cex=2,col="#77acf1")
text(x = df1[,"Start Pool 1"], y = rep(2.5,nrow(df1)),
labels = df1[,"Pool 1"])
points(x = df1[,"Start Pool 2"], y = rep(1,nrow(df1)),
pch=20,cex=2,col="#77acf1")
text(x = df1[,"Start Pool 2"], y = rep(1.5,nrow(df1)),
labels = df1[,"Pool 2"])
axis(side=2,at=1:2,labels=c("Pool2","Pool1"),las=2,col=NA,col.ticks = 1)
否则请使用ggplot2
:
df = data.frame(
label = c(df1[,"Pool 1"],df1[,"Pool 2"]),
value = c(df1[,"Start Pool 1"],df1[,"Start Pool 2"]),
pool = rep(c("Pool1","Pool2"),each=nrow(df1))
)
ggplot(df,aes(x=value,y=pool,label=label)) +
geom_point(size=4,col="#77acf1") +
geom_text(nudge_y=0.2) +
theme_minimal() +
xlab("") + ylab("") +
theme(panel.grid.major.x = element_blank(),
axis.ticks.x = element_blank(),
axis.text.x = element_blank())
请您提供更详细的信息好吗?例如,您能否澄清您希望的x轴是什么。?