ggplot2
хочет отобразить одну вещь на строку в наборе данных, поэтому, если у вас есть дублированные данные, он собирается построить ее дважды. По умолчанию складываются значения, поэтому вещи удваиваются.
Вы можете попросить перестроить столбцы, используя
ggplot(data = data_joined,
mapping = aes(x = country,
y = x)) +
geom_col(position="identity")
, но, вероятно, более разумно использовать набор данных, который не ' дублированные данные Судя по названию, вы получили дуплексы, когда объединили два фрейма данных; поэтому используйте фрейм данных перед соединением, а не соединенный. Или просто выберите одно наблюдение для каждой группы, например,
df <- data_joined %>% group_by(country) %>% filter(row_number() == 1)
, а затем используйте df
как data
на линейчатом графике.