Можно ли построить гистограммы с помощью sparkTable?

Я могу сделать sparkBar, но не sparkHist. Возможно ли это сделать?Можно ли построить гистограммы с помощью sparkTable?

Это пример того, как создать sparkBar (от example(newSparkBar):

library(sparkTable) 
data(pop) 
x <- pop[pop[,2]=="Insgesamt",3] 
b <- newSparkBar(values=x-min(x)) 
getParameter(b, type="values") 
b <- setParameter(b, c("darkred", "darkgreen","black"), type="barCol") 
plotSparks(b, outputType="pdf", filename="testBar1")

источник

2012-05-21 frankc

Можете ли вы привести воспроизводимый пример? – Abe

Я не совсем уверен, какой пример будет полезен. Это не так, что я не могу заставить гистограммы работать, но тем более, что они явно не существуют. Я надеюсь, что кто-то знает какое-то заклинание sparkTable, которое превратит планку в гистограмму. sparkTable несколько задокументирован. – frankc

Полезным примером будет тот, который иллюстрирует вашу проблему, показывает, что вы пробовали, и где вы застряли. Если вы предоставите пример, будет легче ответить на этот вопрос и проверить ответ. Да, возможно сделать искробез, но для этого потребуется создать новую функцию. Если вы предоставили примерный набор данных и как вы его используете для создания sparkBar, было бы легче ответить на этот вопрос. – Abe

Это что-то вроде этого, что вы имели в виду (Это может быть легко свернута в newSparkHist functon, но я убежищем? т беспокоил ...)

library(sparkTable) 
data(alcohol) 
hvals <- hist(alcohol$value,plot=FALSE)$counts 
b <- newSparkBar(values=hvals,barCol=c("gray","gray","black")) 
plotSparks(b, outputType="png", filename="testBar1")

enter image description here

источник

2012-05-24 23:15:20

После прочтения комментариев здесь, я включил гистограммы в версии 0.9.4 пакета sparkTable. В основном в том же стиле, что и предыдущий ответ.

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

1) Только для замышляешь sparkHist (не очень интересно)

2) Для создания sparkTable с присуща рефлективными, вербальными и гистограммами для нормальных и логнормальных распределенных данных

#Example newSparkHist 
hh <- newSparkHist(values=rnorm(100)) 
plotSparks(hh, outputType='pdf', filename='testHist1') 


#Example sparkTable with Hist+Box with 2 variables in 10 different groups 
datEx <- data.frame(variable=sample(paste("Cat",1:10,sep="_"),1000,replace=TRUE), 
    value=rnorm(1000),value2=rlnorm(1000)) 
b <- newSparkBox() 
h <- newSparkHist() 
content <- list(function(x) { round(mean(x),2) }, 
    function(x) { round(median(x),2) }, 
    function(x) { round(quantile(x,.25),2) }, 
    function(x) { round(quantile(x,.75),2) }, 
    b, 
    h, 
    function(x) { round(mean(x),2) }, 
    function(x) { round(median(x),2) }, 
    function(x) { round(quantile(x,.25),2) }, 
    function(x) { round(quantile(x,.75),2) }, 
    b, 
    h 
) 
names(content) <- c(paste(c("Mean","Median","Q25","Q75","Boxplot","Histogram"), 
    "_v1",sep=""), 
    paste(c("Mean","Median","Q25","Q75","Boxplot","Histogram"),"_v2",sep="") 
) 
varType <- c(rep("value",length(content)/2),rep("value2",length(content)/2)) 
datEx <- reshapeExt(datEx,idvar="variable", varying=list(2,3)) 
x2 <- newSparkTable(datEx, content, varType) 
plotSparkTable(x2, outputType="html", graphNames="o2",filename="t1")

источник

2012-06-06 06:28:04

Можно ли построить гистограммы с помощью sparkTable?

ответ

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