用ggpuber畫個(gè)實(shí)心餅圖
p1 <- ggpubr::ggpie(data = subset(pie_data,year=='2020'), x = "sales", label = "category", color = "white",
fill = "category",lab.pos = "in")+
把圖片背景變透明
theme(legend.position = 'none',
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA), # bg of the plot
panel.grid.major = element_blank(), # get rid of major grid
panel.grid.minor = element_blank(), # get rid of minor grid
legend.background = element_rect(fill = "transparent"), # get rid of legend bg
legend.box.background = element_rect(fill = "transparent")) # get rid of legend panel bg
p1
```R
p2 <- ggplot(data=subset(pie_data,year=='2021'),aes(x=0,y=sales,fill=category))+
geom_col(width=1,color='white')+
geom_text(aes(label = scales::percent(sales/sum(sales))), position = position_stack(vjust = 0.5)) +
coord_polar(theta = 'y')+
geom_col(aes(x=-1.2,y=0))+
theme(legend.position = 'none',
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
panel.background = element_rect(fill = "transparent"), # bg of the panel
plot.background = element_rect(fill = "transparent", color = NA), # bg of the plot
panel.grid.major = element_blank(), # get rid of major grid
panel.grid.minor = element_blank(), # get rid of minor grid
legend.background = element_rect(fill = "transparent"), # get rid of legend bg
legend.box.background = element_rect(fill = "transparent")) # get rid of legend panel bg
p2
library(patchwork)
p2 +inset_element(p1, left = 0.25, bottom = 0.25, right = 0.75, top = 0.75)
