R - график с помощью rChart и уложенных столбцов (в процентах)
Я пытался получить график в течение нескольких дней безуспешно, помощь будет очень признателен.
Я попытался воспроизвести примеры сохранения, особенно этот отсюда
haireye <- subset(as.data.frame(HairEyeColor), Sex == "Male")
n1 <- nPlot(Freq ~ Eye, group = 'Hair', data = haireye, type = 'multiBarChart')
n1$chart(stacked = TRUE, forceY = 120)
результат, который я хотел бы получить, в основном этот
это мой код:
graficaOccorrenzeContrattiPagamenti = function(tabellaDati) {
require(plyr)
tabellaDatiMelt = melt(tabellaDati, id = c('Regione','Pagamento'))
risultato = tabellaDatiMelt[order(tabellaDatiMelt$value,decreasing = TRUE, na.last=NA),]
grafico <- nPlot( value ~ Regione, group = 'Pagamento', data = risultato, type = 'multiBarChart')
grafico$xAxis(rotateLabels = -45)
grafico$set(reduceXTicks = FALSE)
grafico$chart(stacked = TRUE)
return(grafico)
}
и эти значения в "risultato" передаются в nplot:
Regione Pagamento variable value
12 VENETO Bollettino Valore 1299
31 VENETO Bonifico Valore 13
51 VENETO RID Valore 969
60 VENETO Vuoto Valore 25
21 VALLE D'AOSTA Bollettino Valore 1
69 VALLE D'AOSTA Vuoto Valore 0
70 VALLE D'AOSTA Bonifico Valore 0
71 VALLE D'AOSTA RID Valore 0
1 UMBRIA Bollettino Valore 774
22 UMBRIA Bonifico Valore 6
34 UMBRIA RID Valore 161
72 UMBRIA Vuoto Valore 0
20 TRENTINO ALTO ADIGE Bollettino Valore 47
53 TRENTINO ALTO ADIGE RID Valore 22
73 TRENTINO ALTO ADIGE Vuoto Valore 0
74 TRENTINO ALTO ADIGE Bonifico Valore 0
2 TOSCANA Bollettino Valore 1475
28 TOSCANA Bonifico Valore 5
35 TOSCANA RID Valore 399
59 TOSCANA Vuoto Valore 9
7 SICILIA Bollettino Valore 18089
29 SICILIA Bonifico Valore 11
38 SICILIA RID Valore 462
57 SICILIA Vuoto Valore 40
16 SARDEGNA Bollettino Valore 23
49 SARDEGNA RID Valore 2
75 SARDEGNA Vuoto Valore 0
76 SARDEGNA Bonifico Valore 0
3 PUGLIA Bollettino Valore 6258
27 PUGLIA Bonifico Valore 3
40 PUGLIA RID Valore 382
66 PUGLIA Vuoto Valore 2
14 PIEMONTE Bollettino Valore 1005
33 PIEMONTE Bonifico Valore 1
43 PIEMONTE RID Valore 480
63 PIEMONTE Vuoto Valore 4
18 NULL Bollettino Valore 250
48 NULL RID Valore 15
77 NULL Vuoto Valore 0
78 NULL Bonifico Valore 0
8 MOLISE Bollettino Valore 3283
45 MOLISE RID Valore 136
55 MOLISE Vuoto Valore 3
79 MOLISE Bonifico Valore 0
4 MARCHE Bollettino Valore 195
36 MARCHE RID Valore 74
80 MARCHE Vuoto Valore 0
81 MARCHE Bonifico Valore 0
11 LOMBARDIA Bollettino Valore 2395
24 LOMBARDIA Bonifico Valore 33
42 LOMBARDIA RID Valore 692
64 LOMBARDIA Vuoto Valore 5
15 LIGURIA Bollettino Valore 88
47 LIGURIA RID Valore 29
62 LIGURIA Vuoto Valore 2
82 LIGURIA Bonifico Valore 0
5 LAZIO Bollettino Valore 12344
23 LAZIO Bonifico Valore 37
37 LAZIO RID Valore 468
56 LAZIO Vuoto Valore 10
19 FRIULI VENEZIA GIULIA Bollettino Valore 937
52 FRIULI VENEZIA GIULIA RID Valore 682
61 FRIULI VENEZIA GIULIA Vuoto Valore 12
83 FRIULI VENEZIA GIULIA Bonifico Valore 0
17 EMILIA ROMAGNA Bollettino Valore 442
32 EMILIA ROMAGNA Bonifico Valore 1
50 EMILIA ROMAGNA RID Valore 123
68 EMILIA ROMAGNA Vuoto Valore 2
6 CAMPANIA Bollettino Valore 6099
25 CAMPANIA Bonifico Valore 66
39 CAMPANIA RID Valore 204
65 CAMPANIA Vuoto Valore 36
13 CALABRIA Bollettino Valore 13117
30 CALABRIA Bonifico Valore 6
41 CALABRIA RID Valore 501
54 CALABRIA Vuoto Valore 18
10 BASILICATA Bollettino Valore 989
26 BASILICATA Bonifico Valore 4
44 BASILICATA RID Valore 44
67 BASILICATA Vuoto Valore 3
9 ABRUZZO Bollettino Valore 1958
46 ABRUZZO RID Valore 45
58 ABRUZZO Vuoto Valore 3
84 ABRUZZO Bonifico Valore 0
Я также попытался удалить "переменную" столбец на случай, если это может вызвать некоторый prbolem, но безрезультатно. Нет успеха с hPlot, dPlot, uPlot, mPlot. Если я написал какую-то чепуху, пожалуйста, будьте как можно яснее, поскольку я очень плохо знаком с языком R и все еще пытаюсь понять, как все это работает.
2 ответа
Решение
Здравствуйте, с библиотекой dimple вы можете сделать так:
d1 = dPlot(y = "Regione", x = "value",data = risultato, groups = "Pagamento",type = "bar")
d1$yAxis(type = "addCategoryAxis", orderRule = "Regione")
d1$xAxis(type = "addPctAxis")
d1$legend(
x = 0,
y = 0,
width = 500,
height = 75,
horizontalAlign = "right"
)
d1
Вы можете найти много примеров с rCharts здесь
Вот один из способов получить интересующий вас участок nPlot, Основная идея состоит в том, чтобы преобразовать данные перед построением графика так, чтобы в дополнение к Freq столбец, у вас также есть проценты.
library(plyr); library(rCharts)
haireye <- subset(as.data.frame(HairEyeColor), Sex == "Male")
haireye <- ddply(haireye, .(Eye), transform, Perc = Freq/sum(Freq)*100)
n1 <- nPlot(Freq ~ Eye, group = 'Hair', data = haireye, type = 'multiBarChart')
n1$chart(stacked = TRUE, forceY = 120)
n1
Вот интерактивная версия кода, с которым вы можете играть онлайн.