Мне нужно нарисовать таблицу, как посмотреть через geom_text(), и я попытался использовать position_jitter/dodge и hjust, чтобы она выглядела как таблица и чтобы текст перекрывался или располагался наклонно.
Вот пример кода:
require(ggplot2)
require(reshape2)
dia3 <- melt(CO2, id = c(colnames(CO2)[1],colnames(CO2)[2]))
dia3
p <- ggplot(dia3, aes_string(x=colnames(dia3)[2],y=colnames(dia3)[1],color = colnames(dia3)[3]))+
geom_text(aes_string(label = colnames(dia3)[4]),
position=position_dodge(width = 0.5),
hjust = 0.5,
size = 2.5
)+
scale_x_discrete(drop = TRUE)+
theme_bw()+
theme(
axis.ticks.x = element_blank(),
axis.text.y= element_text(color="black", size=8),
axis.title.y = element_blank(),
axis.title.x = element_blank(),
legend.key = element_rect(fill="white"), legend.background = element_rect(fill=NA),
legend.position="bottom",
legend.title = element_blank(),
panel.grid = element_blank(),
panel.border = element_blank()
)
p
Мне нужна помощь в расположении всего текста, выровненного по вертикальным прямым линиям.
Спасибо