ggplot2图中添加的表格如何改为三线表

1. library(ggpmisc)
   
2. library(ggplot2)
   
3. 
   
4. data2 <- data.frame(x=rep(1:4,2),
   
5.                     y=c(0,1,4,4,0,2,3,2),
   
6.                     group=c(rep('a',4),rep('b',4)))
   
7. 
   
8. 
   
9. 
   
10. ggplot(data2,aes(x,y,group=group))+
    
11.   geom_point(aes(color=group),size=3)+
    
12.   geom_line(aes(color=group))+
    
13.   annotate(geom = 'table',x=3.6,y=0,
    
14.            label = list(data2),
    
15.            size=3)

复制代码

添加的表格如何显示为三线表，谢谢！

另外可以看看ggpubr,其中ggtexttable()灵活很多。

不知道有没有三线表，可以用下面的命令查查看

1. ttheme_set

复制代码

继续求助！

复制代码

table_theme?

1. annotate(geom = 'table',x=3.6,y=0,
   
2.            label = list(data2),
   
3.            table.theme = ttheme_gtminimal )

复制代码

drunkfish69 发表于 2023-9-13 09:17
table_theme?

三条线没显示出来

图片里的都试试，没有就没有了；可以提交ggpp的开发者增加。

drunkfish69 发表于 2023-9-12 09:48
另外可以看看ggpubr,其中ggtexttable()灵活很多。

链接可以发一下吗

接近三线表，多了2根边框。

1. library(ggpubr)
   
2. library(ggplot2)
   
3. 
   
4. data2 <- data.frame(x=rep(1:4,2),
   
5.                     y=c(0,1,4,4,0,2,3,2),
   
6.                     group=c(rep('a',4),rep('b',4)))
   
7. 
   
8. aaa <- ggplot(data2,aes(x,y,group=group))+
   
9.   geom_point(aes(color=group),size=3)+
   
10.   geom_line(aes(color=group))
    
11. 
    
12. tab <- ggtexttable(data2, rows = NULL, theme = ttheme("light"))
    
13. bbb <- tab_add_border(tab, from.row = 1)
    
14. 
    
15. aaa + annotation_custom(ggplotGrob(bbb), xmin=3.6, ymin=-2,)

复制代码

https://rpkgs.datanovia.com/ggpubr/reference/ggtexttable.html