R 打印GG打印图形选定的数据框行

我有这个数据框：

d <- data.frame(c(rep("A",5), rep("B",5), rep("C",5), rep("D",5), rep("E",5)),
                sample(c(1:25), 25, replace=TRUE),     
                sample(c(1:25), 25, replace=TRUE))

colnames(d) <- c("col1","col2","col3")

head(d);tail(d)

  col1 col2 col3
1    A   20   13
2    A   24   21
3    A    9   23
4    A   13    1
5    A   14   12
6    B   22    5
   col1 col2 col3
20    D   23    1
21    E    3    1
22    E   24   19
23    E   15    3
24    E   22    6
25    E   21    7

---

d好的，你的问题（对我来说）还不清楚。这是你所希望的吗。不能只有一个字母的折线图。因此，我创建了一个新列（A1到A5等）

库（ggplot2）
图书馆（gridExtra）
d$V1在寻求帮助之前，你介意尝试一下吗？还可以使用dput（）使数据集可用。如果你已经有一个代码，请在你的帖子中包含它。对不起。我编辑了这个问题。谢谢。谢谢你添加数据集。但我不清楚你想要什么。你想要条、点、线图吗。当你说“每列给我一个图形”时，你需要一个col1的图形，一个col2的图形，一个col3的图形，但是第一个是因子，而另外两个是数值。请澄清！对不起，对不起，又来了。我已经更改了当x轴只有一个值（如“a”）时，您希望得到哪种类型的线图？
library(ggplot2)
library(gridExtra)

d$V1 <- paste(d$col1,1:5, sep='')
da <- d %>% filter(col1 == "A")
db <- d %>% filter(col1 == "B")
dc <- d %>% filter(col1 == "C")
dd <- d %>% filter(col1 == "D")
de <- d %>% filter(col1 == "E")
#
A <- ggplot(data=da, aes(x=V1, y=col2, group=1)) + geom_point(stat='summary', fun.y=sum, size=0) + stat_summary(fun.y=sum, geom="line") + geom_line(data=da, aes(x=V1, y=col3), color="red") + theme_bw()
B<- ggplot(data=db, aes(x=V1, y=col2, group=1)) + geom_point(stat='summary', fun.y=sum, size=0) + stat_summary(fun.y=sum, geom="line") + geom_line(data=db, aes(x=V1, y=col3), color="red") + theme_bw()
C<- ggplot(data=dc, aes(x=V1, y=col2, group=1)) + geom_point(stat='summary', fun.y=sum, size=0) + stat_summary(fun.y=sum, geom="line") + geom_line(data=dc, aes(x=V1, y=col3), color="red") + theme_bw()
D<- ggplot(data=dd, aes(x=V1, y=col2, group=1)) + geom_point(stat='summary', fun.y=sum, size=0) + stat_summary(fun.y=sum, geom="line") + geom_line(data=dd, aes(x=V1, y=col3), color="red") + theme_bw()
E <- ggplot(data=de, aes(x=V1, y=col2, group=1)) + geom_point(stat='summary', fun.y=sum, size=0) + stat_summary(fun.y=sum, geom="line") + geom_line(data=de, aes(x=V1, y=col3), color="red") + theme_bw()

grid.arrange(A, B, C, D, E, ncol=5)