如何僅顯示帶有名稱和線型的圖例（洗掉左側圖層）？-有解無憂

我試圖找到答案并測驗有關如何處理我的問題的不同建議。我需要圖表來顯示帶有列名稱（reshape2::melt(df) 之后的變數列）和線條樣式的圖例。

我有一種感覺，這可能真的很容易，但我正在為如何不讓傳奇重演而苦苦掙扎。

我想知道如何將線條樣式作為左圖例，將線條顏色作為右圖例的圖例。抱歉，如果之前已經回答過。

df <- bind_cols(c(1979:2019),sample(1:200,41),sample(1:200,41),sample(1:200,41),sample(1:200,41))
colnames(df) <- c("Dates","Column1","Column2",
                  "Column3","Column4")

ggplot(reshape2::melt(df, id.var = "Dates"), 
       aes(`Dates`,value,colour = variable,group = variable))  
 # geom_point()  
  geom_line(aes(linetype=variable, colour = variable))  
  scale_linetype_manual(values=c("solid","dotted", "twodash", "dashed"))   
  theme_classic()  
  labs(x = " Period", y = "Number of X detected", color='', show.legend = F)  
  theme(axis.text.x = element_text(angle = 90, vjust = 1.5, hjust=1.5))  
  scale_color_manual(values = c("steelblue3","red2", "darkgreen","pink"))  
  theme(legend.position = "bottom",legend.text = element_text(size = 13), 
        axis.text = element_text(size = 10),
        axis.title.x = element_text(size = 13),
        axis.title.y = element_text(size = 13),legend.title=element_blank())

uj5u.com熱心網友回復：

如果您的意思是組合成一個圖例，顏色和線型在四個變數中有所不同，那么請確保兩個scale_s 給出相同的名稱以相應地匹配它們：

library(ggplot2)

df <- bind_cols(c(1979:2019),sample(1:200,41),sample(1:200,41),sample(1:200,41),sample(1:200,41))
colnames(df) <- c("Dates","Column1","Column2",
                  "Column3","Column4")

ggplot(reshape2::melt(df, id.var = "Dates"), 
       aes(`Dates`,value,colour = variable,group = variable))  
  geom_line(aes(linetype=variable, colour = variable))  
  scale_linetype_manual("", values=c("solid","dotted", "twodash", "dashed"))   
  theme_classic()  
  labs(x = " Period", y = "Number of X detected")  
  theme(axis.text.x = element_text(angle = 90, vjust = 1.5, hjust=1.5))  
  scale_color_manual("", values = c("steelblue3","red2", "darkgreen","pink"))  
  theme(legend.position = "bottom",legend.text = element_text(size = 13), 
        axis.text = element_text(size = 10),
        axis.title.x = element_text(size = 13),
        axis.title.y = element_text(size = 13),legend.title=element_blank())

那就是如果我正確理解你的問題！

如何僅顯示帶有名稱和線型的圖例（洗掉左側圖層）？

^{由reprex 包于 2022-03-16 創建(v2.0.1)}

轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/445306.html

標籤：r ggplot2 传奇

上一篇：尋找按日期劃分資料的R函式

下一篇：如何計算Rdplyr中不同觀察值的總和