Инвертированный график плотности при использовании логарифмического масштаба - PullRequest
0 голосов
/ 02 марта 2019

Я попытался использовать ggplot2 для R, чтобы создать график плотности, однако, как только я дал scale_y_log10(), чтобы получить логарифмическую ось Y, график, кажется, перевернулся. Как мне исправить это, чтобы получить что-то более похожее на ожидаемый результат, показанный ниже?

Наблюдаемый результат

The error Image that I am getting

Ожидаемый результат

Actual output Image

Мой код

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)
...