Я играл с блестящим приложением для визуализации данных из базы данных Международного валютного фонда.
Одна из вкладок в приложении состоит в построении двух индикаторов друг против друга с использованием geom_point().
Я подумал, что построение данных в масштабе журнала может быть полезно для целей визуализации, поскольку распределение данных часто искажается.
С одной стороны, никаких проблем со значениями, которые являются строго положительными, не возникает.
С другой стороны, поскольку некоторые показатели измеряются в процентном изменении, которое может быть отрицательным, ggplot просто исключает значения из графика (что имеет смысл, учитывая тот факт, что журнал отрицательного значения не определен).
Может показаться странным вопросом, но вот он:
Есть ли способ, с помощью которого вы можете отображать отрицательные значения, все еще рисуя оси в логарифмическом масштабе?
Пожалуйста, посмотрите на код ниже:
output$interact1 <- renderPlot({
x <- ggplot(filter(testplot, Year == input$y),
aes_string(x = input$indicator, y = input$indicator2))
x + geom_jitter(aes_string( col = "Continent", size = "Population")) +
scale_size_continuous(breaks = c(0,5,50,100,200,1000)) +
theme(legend.position = "bottom") +
scale_x_log10() +
scale_y_log10() +
geom_smooth(aes_string(input$indicator, input$indicator2),
method = "loess", col = "black") +
geom_smooth(method = "lm", col = "red", show.legend = F) +
ylab(gsub("_"," ",input$indicator2)) +
xlab(gsub("_", " ", input$indicator)) +
labs(caption = paste(gsub("_"," ",input$indicator2),
"vs.",
gsub("_", " ", input$indicator)))})
Скриншот ниже также может быть полезен для понимания того, что я пытаюсь сделать здесь:
Edit:
Чтобы ответить на вопрос, заданный ниже, прикрепленная гистограмма показывает распределение% ВВП в 2018 году (я знаю, что надписи могут быть немного сложными для чтения). 