|
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:5]
y - 1:5
pieplot(x, y)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:9]
y - 1:9
pieplot(x, y)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:5]
y - 1:5
pieplot(x, y)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y, width=.1)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y, width=.9)
出圖： 
如果要把餅圖的各個扇形分開，就要設置width參數(shù)，并且此參數(shù)越小，分開的空隙越大，反之越?。蝗绻胍虚g空的，通過加xlim
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y) + xlim(-1, NA)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y) + xlim(-.3, NA)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y) + xlim(-.5, NA)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y) + xlim(-.8, NA)
出圖： 
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y, width=.5) + xlim(-.5, NA)
出圖：
library(ggplot2)
pieplot - function(x, y, width=1) {
yy - cumsum(y)
d= data.frame(ymin=yy-y + (1-width)/2,
ymax=yy - (1-width)/2,
group=x)
ggplot(d) +
geom_rect(aes(xmin=0, xmax=1, ymin=ymin, ymax=ymax, fill=group)) +
coord_polar(theta='y') + theme_void() + ylim(0, NA)
}
x - letters[1:8]
y - 1:8
pieplot(x, y)
pieplot(x, y, width=.1) + xlim(-.9, NA)
出圖：
聲明：本文基于參考文摘進行編輯
微信ID: lxdlxd19900511
|
