使用默認表格輸出時,默認情況下使用參數名稱(本例中爲k1和k2)繪製「軸」標籤。這對於比較羣集成員資格特別有用,而表示最重要的是哪些羣集是行,哪些是列。將軸標籤添加到表格中的R代碼中
table(
k1=matrix(1:4, 2),
k2=matrix(1:4, 2)
)
k2
k1 1 2 3 4
1 1 0 0 0
2 0 1 0 0
3 0 0 1 0
4 0 0 0 1
我試圖利用tableGrob
輸出一些表,在grid.arrange
與其他ggplot部件組成。但是,軸標籤丟失。
grid.arrange(tableGrob(
table(
k1=matrix(1:4, 2),
k2=matrix(1:4, 2)
)
))
所有我想要做的是有那些包括甚至包括手動它們使GROB後。
感謝
編輯:嘗試用annotation_custom
:
代碼:
ggTableAxis2 <- function(t) {
my_grob <- tableGrob(t)
my_plot <- ggplot(mapping = aes(k2, k1)) +
annotation_custom(my_grob) +
scale_x_continuous(position = 'top') +
theme(axis.title = element_text(angle = 0, hjust = 0),
axis.title.x.top = element_text(hjust = 0))
return(my_plot)
}
grid.arrange(
ggTableAxis2(
table(
k1=matrix(1:4, 2),
k2=matrix(1:4, 2)
)
),
ggTableAxis2(
table(
k1=matrix(1:4, 2),
k2=matrix(1:4, 2)
)
),
nrow=1
)
這很好,但是如果文本超過3個字符,文本會被截斷。有任何想法嗎? – dpwrussell