Я пытаюсь построить зависимость между доходами и уровнем неграмотности между группами регионов.Я попробовал 2 способа, и они дали мне 2 разных результата.Теперь я в замешательстве, я не знаю, какой из них неправильный.
данные
states = cbind.data.frame(state.x77, state.region)
код 1
m1.plot <- ggplot(states, aes(states$Income, states$Illiteracy))
m1.plot + theme_bw() +
geom_point() +
geom_smooth(method="lm", se = F, col="red") +
facet_grid(. ~states$state.region) +
labs(x = "Income", y = "Illiteracy rate")
код 2
m1.plot <- ggplot(states, aes(states$Income, states$Illiteracy, col = state.region))
m1.plot + theme_bw() +
geom_point() +
geom_smooth(method = "lm", aes(fill = state.region), se=F) +
labs(x = "Income", y = "Illiteracy rate")
Как видно, на графике 1 все линии отрицательные, но на графике 2 только 1 отрицательный.
Извините, если была такая же тема, я не знаю, как описать эту проблему, поэтому я не смог ничего найти.
Спасибо.