Добавление линий и меток в решетчатой ​​диаграмме [R] - PullRequest
Новая
       22

Добавление линий и меток в решетчатой ​​диаграмме [R]

1 голос
/ 13 июля 2010

У меня есть два вопроса относительно настройки диаграммы в решетке.Я пытался добавить метки к диаграмме и соответственно изменить масштаб, но мой код не работает.Что я делаю не так?Должно быть несколько значений, включая «%».

Второй вопрос: как можно провести линии между верхом и низом области построения за решеткой и расположить на напечатанных значениях масштаба.Спасибо за любые предложения и помощь, Себастьян.

Вот код: 

library(lattice)
library(plyr)
data(postdoc, package="latticeExtra")
colnames(postdoc) <- c("Legendtext 1", "2", "3", "4", "5")
colors <- c(rgb(166,27,30,maxColorValue = 255),                             
        rgb(192,80,77,maxColorValue = 255),
        rgb(24,65,83,maxColorValue = 255),
        rgb(60,143,167,maxColorValue = 255),
        rgb(130,184,208,maxColorValue = 255))
colorset <- simpleTheme(col=colors,                                          
                    border="white")
data.p <- prop.table(postdoc, margin=1)
data <- data.p * 100
pl <- barchart(data,
           par.settings = colorset,                                      
           box.ratio = 1,                                                
           xlab = " ",                                                   
           panel = function(...) {   # Code for panel function by rcs (/2659508/otobrazhat-znacheniya-v-stolbchatoi-diagramme-s-nakopleniem) - thank you very much!
             panel.barchart(...) 
             tmp <- list(...)
             tmp <- data.frame(x=tmp$x, y=tmp$y)
             # calculate positions of text labels                        
             df <- ddply(tmp, .(y),
                         function(x) {
                           data.frame(x, pos=cumsum(x$x)-x$x/2)
                         })
             panel.text(x=df$pos, y=df$y,                                
                        label=sprintf("%.0f", df$x),                     
                        cex=0.7, col="white")
             panel.axis(side = c("bottom"),
                        at = list(0, 20, 50, 75, 100),
                        labels = list("0%", "25%", "50%", "75%", "100%"),
                        ticks = TRUE)       
           },
           auto.key=list(columns=5, space="bottom",                          
                         cex=0.8, size=1.4, adj=1,
                         between=0.2, between.colums=0.1, 
                         size = 1.3, points = FALSE, rectangles = TRUE))

1 Ответ

3 голосов
/ 13 июля 2010

Вопрос 1: у меня работает следующее (half=FALSE) 

panel.axis(side=c("bottom"),
           at=c(0, 25, 50, 75, 100),
           labels=c("0%", "25%", "50%", "75%", "100%"),
           rot=0, half=FALSE, ticks=TRUE)

Вопрос 2: Добавьте вызов panel.grid (или panel.abline) до panel.barchart() в функции панели: 

panel.grid(h=FALSE, v=-1)
...