Changing column names in a scatterplot with facet_wrap

Question

I am trying to rename the columns headings for a facet_wrap. Instead of "False" and "True" I need them to say "1946-1992" and "1993-" respectively. Thank you!

library(tidyverse)

IdealPoint <- IdealpointestimatesAll_Apr2020 %>% #
  select(ccode, session, IdealPoint) %>% 
  mutate(year = session + 1945)

CINC <- NMC_5_0 %>% 
  select(stateabb, ccode, year, cinc)

Merged <- CINC %>% 
  group_by(stateabb, year) %>% 
  filter(year >= 1946) %>% 
  full_join(IdealPoint, by = c("ccode" = "ccode", "year" = "year"))

ggplot(data=Merged, 
       aes(x= log(cinc),y= IdealPoint, color = ccode,
           )) + geom_point() +
  facet_wrap(~year >=1993) +
  ylab("Ideal UN Voting Point") +
  xlab("National Material Capability") +
  ggtitle("National Material Capability Vs. State Positions on US-Led Liberal Order") +
  theme_bw()

Does this answer your question? [How to change facet labels?](https://stackoverflow.com/questions/3472980/how-to-change-facet-labels) — Dylan_Gomes, Oct 08 '20 at 23:05

score 1 · Accepted Answer · answered Oct 08 '20 at 22:17

1

Try creating the variable for facets directly in dplyr pipeline:

#Adjust code
Merged <- CINC %>% 
  group_by(stateabb, year) %>% 
  filter(year >= 1946) %>% 
  full_join(IdealPoint, by = c("ccode" = "ccode", "year" = "year")) %>%
  mutate(NewVar=ifelse(year >=1993,"1993-Today","1946-1992"))
#Plot
ggplot(data=Merged, 
       aes(x= log(cinc),y= IdealPoint, color = ccode,
       )) + geom_point() +
  facet_wrap(~NewVar) +
  ylab("Ideal UN Voting Point") +
  xlab("National Material Capability") +
  ggtitle("National Material Capability Vs. State Positions on US-Led Liberal Order") +
  theme_bw()

answered Oct 08 '20 at 22:17

Duck

39,058
13
42
84

Oh, you rock! Thank you so much! – NelCap Oct 08 '20 at 22:21
@NelCap Great! And as you look new in this universe you could read this https://stackoverflow.com/help/someone-answers – Duck Oct 08 '20 at 22:23

score 1 · Answer 2 · answered Oct 08 '20 at 22:22

You can use the labeller option:

library(ggplot2)
ggplot(data=iris, 
   aes(x= Sepal.Length,y= Sepal.Width
   )) + geom_point() +
facet_wrap(~Species) +
theme_bw()

rename <- c(`setosa` = "1946-1992",`versicolor` = "1993-",`virginica`="1996")

ggplot(data=iris, 
       aes(x= Sepal.Length,y= Sepal.Width
       )) + geom_point() +
     facet_wrap(~Species, labeller = as_labeller(rename)) +
    theme_bw()

Using your example, this should work:

rename <- c(`FALSE` = "1946-1992",`TRUE` = "1993-")

ggplot(data=Merged, 
       aes(x= log(cinc),y= IdealPoint, color = ccode,
           )) + geom_point() +
  facet_wrap(~year >=1993, labeller=as_labeller(rename)) +
  ylab("Ideal UN Voting Point") +
  xlab("National Material Capability") +
  ggtitle("National Material Capability Vs. State Positions on US-Led Liberal Order") +
  theme_bw()

Changing column names in a scatterplot with facet_wrap

2 Answers2