-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path.Rhistory
150 lines (150 loc) · 5.29 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
df <- data.frame(
group = c("apple", "peach", "melon"),
value = c(25, 25, 50)
)
library(ggplot2)
bp<- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
bp<- ggplot2(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
install.packages("ggplot")
install.packages("ggplot2")
library(ggplot)
library(ggplot2)
bp<- ggplot2(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
bp<- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
bp
pie <- bp + coord_polar("y", start=0)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group))# + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=0)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=0)
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=0)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=90)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=45)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y")#, start=0)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=0)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=1)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=2)
pie
bp <- ggplot(df, aes(x="", y=value, fill=group)) + geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y", start=1.5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
+ coord_polar("y")
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y")
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y") +
geom_text(aes(y = value/3 + c(0, cumsum(value)[-length(value)]),
label = percent(value/100)), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y") +
geom_text(aes(y = value/3 + c(0, cumsum(value)[-length(value)]), +
label = percent(value/100)), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y") +
geom_text(aes(y = value, label = percent(value/100)), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y")
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y") +
geom_text(aes(y = value/3 + c(0, cumsum(value)[-length(value)]),
label = percent(value/100)), size=5)
pie
cumsum(value)
df
cumsum(df$value)
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y") +
geom_text(aes(y = value/3 + c(0, cumsum(df$value)[-length(df$value)]),
label = percent(df$value/100)), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y") +
geom_text(aes(y = value/3 + c(0, cumsum(value)[-length(value)]),
label = value/100), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value/3 + c(0, cumsum(value)[-length(value)]),
label = value/100), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value/3 + c(0, cumsum(value)[-length(value)]),
label = value), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value/2 + c(0, cumsum(value)[-length(value)]),
label = value), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value + c(0, cumsum(value)[-length(value)]),
label = value), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value ),
label = value), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value,
label = value), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value + c(0, cumsum(value)[-length(value)]),
label = value), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value+2 + c(0, cumsum(value)[-length(value)]),
label = value), size=5)
pie
pie <- ggplot(df, aes(x="", y=value, fill=group)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y",start=0) +
geom_text(aes(y = value + c(0, cumsum(value)[-length(value)]),
label = value), size=5)
pie
quit()