R中图形的折线图？

如何解决R中图形的折线图？

我在 R 中有一个 csv，其中包含下表：

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",stringsAsFactors = F,check.names=FALSE)

池 1	开始池1	池 2	开始池2
F1a	10	F1b	15
R1a	20	R1b	21
F2a	25	F2b	23
R2a	35	R2b	35

我想在 R 中创建一个图形，如下所示：

解决方法

好像你的 Pool 2 标签有误，应该是 R1b

如果你不想使用任何包，并且只有 2 行，你可以通过用 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[,y = rep(2.5,labels = df1[,"Pool 1"])
points(x = df1[,"Start Pool 2"],y = rep(1,y = rep(1.5,"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 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())