R-貼合X軸標簽

Question

我目前正在使用ggplot2制作條形圖，但是，x軸標簽被擠壓在一起，無法讀取。 我還讀過其他一些人以45度角傾斜這些示例，這絕對是一個選擇。 我用下面的代碼嘗試了一下：

ggplot(data = Overall_survival, 
       aes(x=reorder(Name, -OS), y=OS, fill = factor(Best_Response))) + 
  ylim(0, 50) + 
  ylab("Overall Survival (months)") + 
  xlab("Response by Name") + 
  theme_classic() + 
  ggtitle("Overall Survival in Patients Treated with Treatment (n=35)") + 
  theme(plot.title = element_text(hjust = 0.5)) + 
  geom_bar(stat="identity", width = 0.6) + 
  guides(fill = guide_legend(title = "Best Response"))

我應該傾斜標簽以使“名稱”適合每個欄的下方，還是可以減小字體大小以使其適合水平？

Answer 1

您可以自己玩耍，但是可以通過theme訪問每個劇情的元素：

ggplot(...) +
... +
theme(axis.text.x = element_text(size = 20, angle = 45, hjust = 1))

您可以將text替換為axis.text.x或axis.text.y等。