custom rmeta - генерация лесного участка не работает: «'x' и 'units' должны иметь длину> 0"

Question

Я попытался создать «лесной участок» без сводных оценок, используя пакет rmeta. Тем не менее, использование? Forestplot, а затем, начиная с описания или примера, не помогает, я всегда получаю ту же ошибку. Я бы предположил, что это просто один, который должен делать с матрицей/вектор длины несколько не выстраиваются в очередь, но я все изменения и корректировки и до сих пор не может найти ошибку ...

Вот пример кода:

сообщение

tabletext<-cbind(c(NA, NA, NA, NA, NA, NA), 
      c(NA, NA, NA, NA, NA, NA), 
      c("variable1","subgroup","2nd", "3rd", "4th", "5th"), 
      c(NA,"mean","1.8683639", "2.5717301", "4.4966049, 9.0008054") 
      ) 
tabletext 
png("forestplot.png") 
forestplot(tabletext, mean = c(NA, NA, 1.8683639, 2.5717301, 4.4966049, 9.0008054), lower = c(NA, NA, 1.4604643, 2.0163468, 3.5197956, 6.9469213), upper = c(NA, NA, 2.3955105, 3.2897459, 5.7672966, 11.7288609), 
is.summary = c(rep(FALSE, 6)), zero = 1, xlog=FALSE, boxsize=0.75, xticks = NULL, clip = c(0.9, 12)) 
dev.off() 

Ошибка:

clip = c(0.9, 12)) 
Error in unit(rep(1, sum(widthcolumn)), "grobwidth", labels[[1]][widthcolumn]) : 
    'x' and 'units' must have length > 0 
dev.off() 

Любая помощь очень ценится!

Answer 1

Это работает с forestplot-пакет, хотя вы должны удалить xticks=NULL:

tabletext<-cbind(c(NA, NA, NA, NA, NA, NA), 
       c(NA, NA, NA, NA, NA, NA), 
       c("variable1","subgroup","2nd", "3rd", "4th", "5th"), 
       c(NA,"mean","1.8683639", "2.5717301", "4.4966049, 9.0008054") 
) 

png("forestplot.png") 
forestplot(tabletext, 
      mean = c(NA, NA, 1.8683639, 2.5717301, 4.4966049, 9.0008054), 
      lower = c(NA, NA, 1.4604643, 2.0163468, 3.5197956, 6.9469213), 
      upper = c(NA, NA, 2.3955105, 3.2897459, 5.7672966, 11.7288609), 
      is.summary = c(rep(FALSE, 6)), zero = 1, 
      xlog=FALSE, boxsize=0.75, clip = c(0.9, 12)) 
dev.off() 

дает (я рекомендую немного полировки перед отправкой для публикации):