Всем привет! Может кто-нибудь работал с ggplot2 и sec.axis? Я пытаюсь

Question

Всем привет! Может кто-нибудь работал с ggplot2 и sec.axis? Я пытаюсь

нарисовать одновременно и нанометры (нм) (длина волны) и электрон-вольты (эВ) (энергия), которые зависят друг от друга как 1/x.
Когда я пытаюсь нарисовать график, я сталкиваюсь с проблемой, что и нанометры, и электрон-вольты увеличиваются при движении к правой стороне графика. Но электрон-вольты должны уменьшаться. Соответственно вопрос, что я делаю не так в своем коде и как мне его исправить до правильного с моей точки зрения? Код приложен ниже.
Следующим сообщением отправляю результат выполнения кода.

ggplot() + scale_x_continuous("Wavelength (nm)", limits=c(300,600), breaks=seq(300,600,50), sec.axis = sec_axis(~1/., name="Energy, eV")) + scale_y_continuous("Relative intensity", limits=c(0,1)) + theme_bw()

#programming #r #russian

0

09.04.2019

3 ответов

23 просмотра

Артём Клевцов

А если с формулой в sec_axis поколдовать?

0

09.04.2019

SNEJANA ONE LOVE Автор вопроса

Ответ с использованием дополнительной таблицы: dt <- dataframe(eV=seq(2,5,0.125)) %>% mutate(nm = 4.13*300/eV) ggplot() + scale_x_continuous("Wavelength (nm)", limits=c(300,550), breaks=seq(300,550,50), sec.axis = sec_axis(~., name="Energy, eV", breaks=c(dt %>% `[[`("nm")),labels=sprintf("%0.3f",c(dt %>% `[[`("eV"))))) + scale_y_continuous("Relative intensity", limits=c(0,1)) + theme_bw()

0

09.04.2019

⌨️ · Accepted Answer

Я такую проблему так и не решил. Это почти by design. В итоге у меня есть куча костылей, которые рисуют мне вторые оси и дополинтельные тики в промежутках между лейблами. Насколько я помню, sec_axis просто применит преобразование к пределам исходной оси и равномерно расположет тики между пределами, что собственно видно на рисунке (и очевидно, не верно).

169 похожих чатов

Всем привет! Может кто-нибудь работал с ggplot2 и sec.axis? Я пытаюсь

3 ответов

Похожие вопросы