2015-06-12 47 views
16

我正在从Word/Excel表格移开并试图在R中生成表格。我有一个数据框,我想简单地将其打印为情节,同时可以对单元格进行遮盖/着色,并且通常可以发挥美学效果。将数据框绘制为表格

x <- data.frame(row.names=paste("Name",1:10)) 
x[,1] <- 1:10 
x[,2] <- sample(1:100,10) 
x[,3] <- sample(LETTERS[1:26],10) 
colnames(x) <- c("Value 1", "Value 2", "Label") 

View(x)提供了确切的格式我想我的表,就像一个可保存的情节。

我试图

plot(x,type="h") 

但收到一个错误:

Error in plot.default(...) : formal argument "type" matched by multiple actual arguments

我所看到的输出如何表有两列,但我怎么能绘制数据帧,是什么?用于显示如何将该表格粘贴到我创建的另一个散点图下方的奖励点,以便输出ggsave具有散点图,其下面的表格也是散点图。

回答

15

因为我打算奖励积分:

#Plot your table with table Grob in the library(gridExtra) 
    ss <- tableGrob(x) 

    #Make a scatterplot of your data 
    k <- ggplot(x,aes(x=x$"Value 1",y=x$"Value 2")) + 
    geom_point() 

    #Arrange them as you want with grid.arrange 
    grid.arrange(k,ss) 

你可以如果需要更改行数,列数,高度等等。

祝你好运吧 enter image description here

http://cran.r-project.org/web/packages/gridExtra/gridExtra.pdf

+0

哇这么简单吗?真棒感谢队友!奖励积分!在罗伯特的回答中,我的附加问题恰好有答案? – Alex

+0

在我们显示的表格中,在我看到的名词1中,这里没有切断,所以你的意思是? 此外,这可能是由于您使用的row.names。当你为名称1-10给出一个新的列时,它可能会没问题。 – MichaelVE

+0

install.packages(gridExtra) install.packages(gridExtra)错误:object'gridExtra'not found ...不知道,如果它仍然是一个库? – Coliban

15

试试这个。是使用pdf()绘制一个PDF文件(例如:mydf.pdf)或png()绘制PNG文件:

library(gridExtra) 
pdf("mypdf.pdf", height=6, width=4) 
grid.table(x) 
dev.off() 

enter image description here

+1

再次感谢,编辑此评论说tthat在rownames(如名称1" 在我的例子)的字符串被切断,无论在哪里,我字符串包装他们,有什么想法? – Alex

+1

我已经用table.grob来解决这个问题,并且允许我使用grid.arrange迟到,再次感谢所有! – Alex