Change levels of a factor
- Changing the levels of a factor
rincome_summary <- gss_cat |>
group_by(rincome) |>
summarize(
age = mean(age, na.rm = TRUE),
tvhours = mean(tvhours, na.rm = TRUE),
n = n()
)
ggplot(rincome_summary,
aes(x = age,
y = fct_relevel(rincome,
"Not applicable"))) +
geom_point()

by_age <- gss_cat |>
filter(!is.na(age)) |>
count(age, marital) |>
group_by(age) |>
mutate(
prop = n / sum(n)
)
ggplot(by_age, aes(x = age,
y = prop, color = marital)) +
geom_line(na.rm = TRUE)

ggplot(by_age, aes(x = age,
y = prop,
color = fct_reorder2(marital,
age, prop))) +
geom_line() +
labs(color = "marital")

- Changing the order of a bar plot in decreasing frequency with fct_infreq() and in increasing frequency with fct_rev()
gss_cat |>
mutate(marital = marital |>
fct_infreq() |>
fct_rev()) |>
ggplot(aes(x = marital)) +
geom_bar()
