Я попытался использовать ggplot2 для R, чтобы создать график плотности, однако, как только я дал scale_y_log10()
, чтобы получить логарифмическую ось Y, график, кажется, перевернулся. Как мне исправить это, чтобы получить что-то более похожее на ожидаемый результат, показанный ниже?
Наблюдаемый результат
Ожидаемый результат
Мой код
fd <- read.csv('data.csv')
fd_factor <- factor(fd$XDIndicator, levels = c("a","b","c"),
labels = c("a","b","c"))
p <- ggplot(fd, aes(x = KTotal, fill = factor(fd_factor))) +
geom_density(alpha = 0.2, na.rm = TRUE) +
xlab('Total collaboration degree') + ylab("PDf") +
scale_y_log10()
ggplotly(p)