如何为 ggplot2 (R) 中的多个 geom_line 图创建具有不同 alpha 的图例

如何解决如何为 ggplot2 (R) 中的多个 geom_line 图创建具有不同 alpha 的图例

我有以下两年的入学数据。 我想通过给它一个不同的 alpha 来突出显示我的情节和图例中 H 学校的数据。

library(tidyverse)

schools <- c("A","B","C","D","E","F","G","H","I","J")
yr2010 <- c(601,809,604,601,485,798,662,408,451)
yr2019 <- c(971,1056,1144,933,732,833,975,617,598,822)

data <- data.frame(schools,yr2010,yr2019)

我进行了一些数据管理，以便为绘图准备好数据。

data2 <- data %>%
  gather(key = "year",value = "students",2:3)

data2a <- data2 %>%
  filter(schools != "H")

data2b <- data2 %>%
  filter(schools == "H")

然后我尝试使用两个单独的 geom_line 图绘制数据，一个用于学校 H，默认 alpha 和 size=1.5，另一个用于其余学校，alpha=.3 和 size=1。

ggplot(data2,aes(x=year,y=students,color=schools,group=schools)) +
  theme_classic() +
  geom_line(data = data2a,alpha=.3,size=1) +
  scale_color_manual(values=c("red","orange","green","skyblue","aquamarine","purple","pink","brown","black")) +
  geom_line(data = data2b,color="blue",size=1.5)

但是，我要强调的学校并没有包含在图例中。所以我尝试在 scale_color_manual 中而不是在 geom_line 调用中包含学校 H 的颜色。

ggplot(data2,"blue",size=1.5)

然而，现在图例中的 alpha 都相同，这并没有像我想要的那样突出学校 H。

如何调用该图，以便图例与所有学校的线本身的 alpha 相匹配？

解决方法

您需要像放置颜色一样将 alpha 和大小类别放入 aes。然后，您可以根据需要使用 scale_alpha_manual 和 scale_size_manual 。另外，这样就不需要创建 data2a 和 data2b。

见下面的代码：

Function add_title(whatever)
wdStory = 6
wdMove = 0
Set objWord = CreateObject("Word.Application")
objWord.Visible = FALSE
Set objDoc = objWord.Documents.Open("C:\Users\A\D\P\"+whatever)
Set objSelection = objWord.Selection
objSelection.HomeKey wdStory,wdMove
objSelection.TypeText "This text was appended to an existing Word document."
objSelection.TypeText(Chr(11))
objSelection.TypeText "Management"
objDoc.Saved = TRUE
objWord.Quit
End Function

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\A\D\P"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files

For Each file in colFiles
    add_title(file.Name)
    MsgBox "Completed"  

Next

The code brings this plot. Please click.

希望对大家有用。