ggplot更改xvalues的热图精确

时间:2017-08-21 09:36:10

标签: r ggplot2 time-series heatmap lines

在我的图片中,我得到了热图,我想要提供具体的数据,这些年份:2014,2015,2016,有不同的颜色,然后我想像我一样更改ylab的名称,最后我如何添加标题。 提前谢谢。

我使用的代码是这样的:

ggplot(TLM, aes (Month, Temp)) + geom_line(aes(group = Year, color = Year))

enter image description here

我的数据库也是分发的:

enter image description here

1 个答案:

答案 0 :(得分:0)

使用您的图表g <- ggplot(TLM, aes (Month, Temp)) + geom_line(aes(group = Year, color = Year))

添加标题:

g <- g + ggtitle("My heatmap title")

您也可以使用labs(title = "my title")。这个link shows如果你需要做一些技巧,比如使用\ n来分割超过两行的长标题。

请注意,new ggplot2具有添加字幕等功能。

更改我的ylabel

使用ylab执行此操作。我们假设你想说温度(摄氏度)不是温度

 g <- g + ylab("Temperature (Celsius)")

更改图例顶部的措辞

假设您想将Ano更改为年份以获取英文出版物

g <- g + labs(color = "Year")

示例代码已全面

因此,将这些全部放在数据的子集上,它看起来像这样:

example plot of temp

library(ggplot2)
library(data.table)

mydata <- data.table(Ano = c("2015", "2015", "2016", "2016"),
                     Mes = c("Enero", "Febrero", "Enero", "Febrero"),
                     Temp = c(18.17, 18.63, 20.66, 21.1))

#> mydata
#    Ano     Mes  Temp
#1: 2015   Enero 18.17
#2: 2015 Febrero 18.63
#3: 2016   Enero 20.66
#4: 2016 Febrero 21.10

#ggplot(TLM, aes (Month, Temp)) + geom_line(aes(group = Year, color = Year))
g <- ggplot(mydata, aes (Mes, Temp)) + geom_line(aes(group = Ano, color = Ano))

# splitting it for illustrative purposes
#  you can do this all in one step ggplot + ggtitle + ylab etc.
# title
g <- g + ggtitle("My heatmap title") 

# ylab
g <- g + ylab("Temperature (Celsius)")

# legend
g <- g + labs(color = "Year")

#Plot chart
print(g)