ggplot2圖中的主題元素

Question

我正在嘗試調整ggplot2圖中的一些主題元素。 我對此多層圖的三個問題/目標是（數據代碼如下）：

1. 為所有八年（即2004-2011年）創建一個x軸刻度線標簽。 我不想要“ xlab”。
2. 從“感染的莖”圖例b / c中刪除兩個填充的點，這些“ geom_bars”應該沒有與之關聯的點（???）。
3. 將行/點圖例的圖例標題更改為“ SOD死莖”。

我的代碼可能對許多人來說是多余的，因此隨時可以在任何地方提供建議，例如只有一個圖例。 我是ggplot的新手（喜歡它），但到目前為止對“秤”有麻煩。

---

我的圖形代碼：

##### BUILD UP DATAFRAME:
quag.infect= c(31, 52, 58, 74, 76, 85, 99, 102)
quke.infect= c(10, 13, 17, 20, 23, 27, 28, 27)
qusp.hosts = (rep(c("QUAG", "QUKE"), each=8))
year = rep(2004:2011, 2)
quag.dead = c(NA, 4,  11, 19, 33, 38, 48, 49)
quke.dead = c(NA,  1,  1,  1,  2,  3,  7,  8)

my.df = data.frame(Species=qusp.hosts, Year=year, 
Inf.ct = c(quag.infect, quke.infect), Sod.Dead=c(quag.dead, quke.dead))

##### Establish grey colors for bars:
grays = c(QUAG="gray50", QUKE="gray66")

##### Make multi-layered graphic:
library(ggplot2)
plot_x = ggplot(my.df, aes(Year, Inf.ct, fill=Species)) +
  geom_bar(stat="identity", position="dodge") +
  ylab(expression("Number of stems (dbh">="1-cm)", sep="")) +
  xlab("") +          
  scale_fill_manual(values=grays, "Infected Stems", labels = c("Black Oak", "Coast Live           Oak")) +
  geom_line(aes(y=Sod.Dead, linetype=Species)) +
  geom_point(aes(y=Sod.Dead, shape=Species)) 
plot_x 

---

謝謝莎拉

Answer 1

你不遠。

對於點1：代替xlab ，使用scale_x_continuous ，設置breaks並指定一個空標題。

對於點2：將fill = Species從全局aes函數中移出到geom_bar的aes函數中。

對於第3點：在scale_shape和scale_linetype函數中更改圖例標題，確保兩個標題都相同。

對ggplot的代碼進行以下更改：

plot_x = ggplot(my.df, aes(Year, Inf.ct)) +
  geom_bar(aes(fill=Species), stat="identity", position="dodge") +
  ylab(expression("Number of stems (dbh">="1-cm)", sep="")) +
  scale_x_continuous("", breaks = seq(2004, 2011, 1)) +
  scale_fill_manual(values=grays, "Infected Stems", labels = c("Black Oak", "Coast Live Oak")) +
  geom_line(aes(y=Sod.Dead, linetype=Species)) +
  geom_point(aes(y=Sod.Dead, shape=Species)) +
  scale_shape("SOD-dead Stems") +
  scale_linetype("SOD-dead Stems")
plot_x 

給出以下圖：