R更改网格排列中的标题排列

Question

我正在尝试更改此网格排列图的每个方面的标题。我一直在尝试的每一个标题都会使“大西洋”的标题或错误。问题是我需要将一个单词分成一个单词，以便它们可以是变量，但我试图将它们分成两个单词作为实际图形。我怎么能使用两个词如“SouthWest”改为“South West”？

任何帮助将不胜感激。

df <- read.table(textConnection(
'Year ATL BOS BRK CHI CHO CLE DAL DEN DET GSW HOU IND LAC LAL MEM MIA MIL MIN NOP NYK OKC ORL PHI PHO POR SAC SAS TOR UTA WAS 
2017 42 52 20 40 36 51 32 38 37 66 54 41 50 25 43 40 42 31 33 30 46 28 28 24 41 31 61 50 50 49 
2016 48 48 21 42 48 57 42 33 44 73 41 45 53 17 42 48 33 29 30 32 55 35 10 23 44 33 67 56 40 41 
2015 60 40 38 50 33 53 50 30 32 67 56 38 56 21 55 37 41 16 45 17 45 25 18 39 51 29 55 49 38 46 
2014 38 25 44 48 43 33 49 36 29 51 54 56 57 27 50 54 15 40 34 37 59 23 19 48 54 28 62 48 25 44 
2013 44 41 49 45 21 24 41 57 29 47 45 49 56 45 56 66 38 31 27 54 60 20 34 25 33 28 58 34 43 29 
2012 40 39 22 50 7  21 36 38 25 23 34 42 40 41 41 46 31 26 21 36 47 37 35 33 28 22 50 23 36 20 
2011 44 56 24 62 34 19 57 50 30 36 43 37 32 57 46 58 35 17 46 42 55 52 41 40 48 24 61 22 39 23 
2010 53 50 12 41 44 61 55 53 27 26 42 32 29 57 40 47 46 15 37 29 50 59 27 54 50 25 50 40 53 26 
2009 47 62 34 41 35 66 50 54 39 29 53 36 19 65 24 43 34 24 49 32 23 59 41 46 54 17 54 33 48 19 
2008 37 66 34 33 32 45 51 50 59 48 55 36 23 57 22 15 26 22 56 23 20 52 40 55 41 38 56 41 54 43 
2007 30 24 41 49 33 50 67 45 53 42 52 35 40 42 22 44 28 32 39 33 31 40 35 61 32 33 58 47 51 41 
2006 26 33 49 41 26 50 60 44 64 34 34 41 47 45 49 52 40 33 38 23 35 36 38 54 21 44 63 27 41 42 
2005 13 45 42 47 18 42 58 49 54 34 51 44 37 34 45 59 30 44 18 33 52 36 43 62 27 50 59 33 26 45'), header = TRUE) 

df2 <- read.table(textConnection(
'Division Team 
SouthEast ATL 
Atlantic BOS 
Atlantic BRK 
Central CHI 
SouthEast CHO 
Central CLE 
SouthWest DAL 
NorthWest DEN 
Central DET 
Pacific GSW 
SouthWest HOU 
Central IND 
Pacific LAC 
Pacific  LAL 
SouthWest MEM 
SouthEast MIA 
Central MIL 
NorthWest MIN 
SouthWest NOP 
Atlantic NYK 
NorthWest OKC 
SouthEast ORL 
Atlantic PHI 
Pacific PHO 
NorthWest POR 
Pacific SAC 
SouthWest SAS 
Atlantic TOR 
NorthWest UTA 
SouthEast WAS'), header = TRUE) 

library(tidyr) 
library(ggplot2) 
library(dplyr) 


df <- gather(df, Team, Wins, -Year) %>% 
mutate(Team = factor(Team, names(df)[2:ncol(df)])) 

df3 <- merge(df, df2, by="Team") 
df3$Division <- factor(df3$Division, 
levels = c("Atlantic", "Central", "SouthEast", "NorthWest", "Pacific", "SouthWest")) 

cust <- c("#E03A3E","#008348","#000000","#CE1141","#008CA8", 
      "#860038","#007DC5","#4FA8FF","#001F70","#006BB6", 
      "#CE1141","#FFC633","#ED174C","#FDB927","#6189B9", 
      "#98002E","#00471B","#005083","#B4975A","#F58426", 
      "#FDBB30","#007DC5","#006BB6","#E56020","#F0163A", 
      "#724C9F","#000000","#CE1141","#00471B","#002566") 

ggplot(df3, aes(x=Year, y=Wins, color = Team)) + 
geom_path(aes(color = Team)) + 
scale_color_manual(values = cust) + 
labs(title = "NBA Wins", 
y = "Wins", 
x = "Year")+ 
facet_wrap(~Division, ncol=2, nrow=3) + 
guides(color=guide_legend("Team",override.aes=list(size=3))) 

library(gridExtra) 

theme_set(theme_grey() + 
theme(plot.title = element_text(hjust=0.5,face='bold'), 
axis.title.y = element_text(angle = 0, vjust = 0.5), 
panel.background = element_rect(fill = "gray"), 
axis.ticks=element_blank())) 


nba_plots <- lapply(c("Atlantic", "Central", "SouthEast", "NorthWest", "Pacific", "SouthWest"), function(d) { 
ggplot(df3[df3$Division==d,], aes(x=Year, y=Wins, color = Team))+ 
theme(panel.background = element_rect(fill = "gray"))+ 
geom_path(aes(color = Team),size=1.23) + 
scale_color_manual(values = setNames(cust, levels(df3$Team))) + 
labs(title=c("Atlantic", "Central", "South East", "North West", "Pacific", "South West"), 
y = "Wins", 
x = "Year") + 
guides(color=guide_legend("Team",override.aes=list(size=3))) 
}) 

grid.arrange(grobs=nba_plots) 

Answer 1

如果你想分配不同的名字，只是在它们之间迭代以及使用`地图（）〜

divisions <- c("Atlantic", "Central", "SouthEast", "NorthWest", "Pacific", "SouthWest") 
division_names <- c("Atlantic", "Central", "South East", "North West", "Pacific", "South West") 
div_draw <- function(d, dn) { 
    ggplot(df3[df3$Division==d,], aes(x=Year, y=Wins, color = Team))+ 
    theme(panel.background = element_rect(fill = "gray"))+ 
    geom_path(aes(color = Team),size=1.23) + 
    scale_color_manual(values = setNames(cust, levels(df3$Team))) + 
    labs(title=dn, y = "Wins",x = "Year") + 
    guides(color=guide_legend("Team",override.aes=list(size=3))) 
} 
nba_plots <- Map(div_draw, divisions, division_names) 

因为d包含当前部门的名称。这将会给下列情节