我想为代码添加颜色。我本质上是通过按邮政编码折线图的房屋价格创建了一个时间序列，该价格序列逐年增加，然后使用gghighlight突出显示了6个涨幅最大的邮政编码。该图看起来仍然非常密集，因此我想为其添加颜色。我还想处理价格的百分比增长，而不是原始价格的增长，所以如果可能的话，我也想在那里提供帮助。
我认为正确的方法适用于gghighlight，我可能需要创建一个因子变量，为每个要用颜色突出显示的不同邮政编码提供一个值，并为所有其他邮政编码提供一个值。然后，我可以将其用于代码的“颜色=变量”部分。我认为这可以解决问题，但还无法使其正常工作。
到目前为止，这是我的代码！：
home=read.csv("Zip_MedianValuePerSqft_AllHomes.csv")
head(home)
colnames = names(home)
namefilter=grepl("X",names(home))
colnames(namefilter)
names = !namefilter
colnames[names]
install.packages("reshape")
library("reshape")
dallas = melt(home,id.vars=colnames[names],value.name ="Month_Year")
install.packages("dplyr")
library("dplyr")
periodCutter=function(x,i) {
strsplit(x,"\\.")[[1]][i]
}
dallas$variable=as.character(dallas$variable)
dallas$variable=gsub("X","",dallas$variable)
years=vapply(dallas$variable,periodCutter,i=1,character(1))
months=vapply(dallas$variable,i=2,character(1))
dallas$year = years
dallas$month = months
head(dallas)
unique(years)
unique(months)
dallas2 = dallas %>% group_by(RegionName,year) %>% summarize(price=mean(value))
install.packages("ggplot2")
library(ggplot2)
ggplot(data = dallas2,aes(x=year,y=price,group = RegionName,color = RegionName)) +geom_line()
install.packages("gghighlight")
library(gghighlight)
gghighlight_line(dallas2,aes(year,price,color = RegionName),predicate = max(price),max_highlight =6) +theme_minimal()
gghighlight_line(dallas2,max_highlight =6) +theme_minimal() + facet_wrap(~RegionName)
