2014-10-08 7 views
0

У меня есть некоторые данные, которые я хочу отобразить графически. Вот как это выглядит:R - отрегулировать y-значение оси x

data<- c(0.119197746, 0.054207788, 0.895580411, 0.64861727, 0.143249592, 
0.284314897, 0.070027632, 0.297172433, 0.183569184, 0.713896071, 
1.942425326, 1) 

С помощью этой команды:

barplot(data, main="Ratio of Lipidated and Unlipidated LC3 I & II forms\nNormalized 
to GAPDH", names.arg = c("PT250", "PT219", "PT165", "PT218", "PT244", "PT253", "PT279", "PT281",  
"PT240", "PT262", "PT264", "CCD"), ylab = "Fold LC3 II/LC3I/GAPDH") 

Я произвел этот график:

Graph

Я хотел бы расположить ось Х на 1, так что все значения меньше одного будут отображаться в виде нижних баров. Я мог бы достичь желаемого эффекта, просто вычитав 1 из всех значений и снова построив график, но это приведет к неточности чисел на оси y. Есть ли способ получить R для построения значений меньше 1 в виде нисходящих баров?

+0

Я не уверен, что выглядит ваши данные как. Является ли 'data $ LC3.Ratio.GAPDH' вектором, который содержит высоту соответствующих баров? – blakeoft

+0

Вычитание 1 из всего, а затем корректировка оси y соответственно представляется приятным и легким решением. Не уверен, зачем вам что-то еще ... – Gregor

+0

@Gregor Я действительно исследовал это решение, но нашел, что регулировка оси Y так же искажает, как перемещение оси x. Если вы знаете, как изменить значения по оси y, я с радостью соглашусь с этим в качестве решения. – Slavatron

ответ

1

Решение с настраиваемой осью.

barplot(data - 1, main="Ratio of Lipidated and Unlipidated LC3 I & II forms\nNormalized 
to GAPDH", names.arg = c("PT250", "PT219", "PT165", "PT218", "PT244", "PT253", "PT279", "PT281",  
         "PT240", "PT262", "PT264", "CCD"), ylab = "Fold LC3 II/LC3I/GAPDH", 
     axes = F, ylim = c(-1, 1) 
my_labs <- seq(-1, 1, by = 0.5) 
axis(side = 2, at = my_labs, labels = my_labs + 1) 

enter image description here

Смежные вопросы