Элементы темы на рисунке ggplot2
Я пытаюсь настроить несколько тематических элементов на рисунке ggplot2. Мои три вопроса / цели для этой многослойной фигуры таковы (код данных приведен в конце):
Создайте метку оси x для всех восьми лет, т.е. 2004-2011. Я не хочуxlab» хоть.Удалите две заполненные точки из "Зараженные стебли " легенда б / к этим "geom_bars» не должно быть точек, связанных с ними (???).Измените заголовок легенды для легенды линий / точек на "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
Спасибо Сара