Plotting yearly/area comparison in ggplot in R through dodging [closed] - r

Question

Closed. This question is not reproducible or was caused by typos. It is not currently accepting answers.
This question was caused by a typo or a problem that can no longer be reproduced. While similar questions may be on-topic here, this one was resolved in a way less likely to help future readers.
Closed 2 years ago.
Improve this question
I have the following dataset showing when a person (denoted by variable id) synced data to the server in districts A and B. I already computed counts and percentages by district and year.
This is my summarized data:
df3 <- structure(list(district = c("A", "A", "B", "B"), year_sync = c(
2019L,
2020L, 2019L, 2020L
), ssum = c(32L, 32L, 33L, 33L), n = c(
7L,
25L, 25L, 8L
), percent = c(
0.21875, 0.78125, 0.757575757575758,
0.242424242424242
), label = c("21.88%", "78.12%", "75.76%", "24.24%")), row.names = c(NA, -4L), groups = structure(list(district = c(
"A",
"B"
), .rows = structure(list(1:2, 3:4), ptype = integer(0), class = c(
"vctrs_list_of",
"vctrs_vctr", "list"
))), row.names = 1:2, class = c(
"tbl_df",
"tbl", "data.frame"
), .drop = TRUE), class = c(
"grouped_df",
"tbl_df", "tbl", "data.frame"
))
I need to create a ggplot (like the one shown below).
This is my plotting code:
ggplot(df3, aes(y=ssum, x=factor(year_sync), fill=district)) +
geom_bar(stat='identity',
#color='black',
position = position_dodge(width=0.8), width=0.8) +
geom_text(aes(label = label),
position = position_dodge(width=0.8),
size = 3) +
xlab ("Year") +
ylab ("Number of People") +
scale_fill_manual(values=c("aquamarine4", "bisque3")) +
theme_minimal() +
theme(plot.title = element_text(hjust = 0.5, face = "bold"),
plot.subtitle = element_text(hjust = 0.5, face = "italic"))
However, the second part of the code gives me the following error: Error in unique.default(x, nmax = nmax) : unique() applies only to vectors.
Can anyone please help in telling what am I doing wrong as I am new to R.
Looking forward to solving this!
Thank you

Answer 1

Simply replacing year with year_sync, countby n and mapping n on the y aes (instead of ssum) gives the wanted plot without any error messages:
df3 <- structure(list(district = c("A", "A", "B", "B"), year_sync = c(
2019L,
2020L, 2019L, 2020L
), ssum = c(32L, 32L, 33L, 33L), n = c(
7L,
25L, 25L, 8L
), percent = c(
0.21875, 0.78125, 0.757575757575758,
0.242424242424242
), label = c("21.88%", "78.12%", "75.76%", "24.24%")), row.names = c(NA, -4L), groups = structure(list(district = c(
"A",
"B"
), .rows = structure(list(1:2, 3:4), ptype = integer(0), class = c(
"vctrs_list_of",
"vctrs_vctr", "list"
))), row.names = 1:2, class = c(
"tbl_df",
"tbl", "data.frame"
), .drop = TRUE), class = c(
"grouped_df",
"tbl_df", "tbl", "data.frame"
))
library(ggplot2)
ggplot(df3, aes(y = n, x = factor(year_sync), fill = district)) +
geom_bar(
stat = "identity",
color = "black",
position = position_dodge(width = 0.8), width = 0.8
) +
geom_text(aes(label = label, y = n),
position = position_dodge(width = 0.8),
size = 3, vjust = -1
) +
xlab("Year") +
ylab("Number of People") +
scale_fill_manual(values = c("aquamarine4", "bisque3")) +
theme_minimal() +
theme(
plot.title = element_text(hjust = 0.5, face = "bold"),
plot.subtitle = element_text(hjust = 0.5, face = "italic")
)