.Rhistory

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()