---
title: "tastypie包輕松制作圓形圖/餅圖"
author: "wuliubingbing"
date: Sys.Date()
output:
? powerpoint_presentation:
??? reference_doc: 'sakura-wlbb.pptx'
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tastypie)
```

## 圓形圖1

```{r}
example <- data.frame(
c("This", "Is", "Just", "An", "Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)
bubble_blow(
data = example,
template = "bub1",
perc = "below",
title = "wuliu-pie"
)

```

## 圓形圖2

```{r}
example2 <- tibble::tibble(
c("cat 1", "cat2", "cat3", "cat4", "cat5", "cat6", "cat7", "cat8", "cat9"),
c(324, 432, 499, 291, 750, 836, 314, 133, 372)
)
bubble_blow(
data = example2,
template = "bub2",
perc = "right",
title = "wuliu-pie2"
)
```


## 基礎(chǔ)餅圖1

```{r}
example <- data.frame(
c("a. This", "b. Is", "c. Just", "d. An", "e. Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)
pie_bake(
data = example,
template = "basic3",
perc = TRUE,
group_name = "groups",
title = "wuliu-pie1"
)
```

## 基礎(chǔ)餅圖2

```{r}
example <- data.frame(
c("a. This", "b. Is", "c. Just", "d. An", "e. Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)
pie_bake(
data = example,
template = "red1",
title = "wuliu-pie2"
)

```

## 基礎(chǔ)餅圖3

```{r}
example <- data.frame(
c("a. This", "b. Is", "c. Just", "d. An", "e. Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)
pie_bake(
data = example,
template = "donut2",
perc = TRUE,
group_name = "CAT:",
title = "wuliu-pie3"
)
```

## 高級(jí)餅圖1

```{r}
example <- data.frame(
c("a. This", "b. Is", "c. Just", "d. An", "e. Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)
pie_bake_pro(
data = example,
template = "eaten3",
group_name = "cat:",
title = "wuliu-pie"
)

```

## 高級(jí)餅圖2

```{r}
example <- data.frame(
c("a. This", "b. Is", "c. Just", "d. An", "e. Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)
pie_bake_pro(
data = example,
template = "dart1",
title = "wuliu-pie"
)
```


## 高級(jí)餅圖3


```{r}
example <- data.frame(
c("a. This", "b. Is", "c. Just", "d. An", "e. Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)

pie_bake_pro(
data = example,
template = "eye5",
group_name = "GROUPS:"
)

```


## 高級(jí)餅圖4


```{r}
example <- data.frame(
c("a. This", "b. Is", "c. Just", "d. An", "e. Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)

pie_bake_pro(
data = example,
template = "spider2"
)
```


## 餅圖中添加圖片

```{r}
img5 <- jpeg::readJPEG(system.file("img", "pie.jpeg", package = "tastypie"))
imgs2 <- list(img5, img5, img5)
df2 <- data.frame(
c("A", "B", "C"),
c(300, 250, 600)
)
mypie2 <- pie_bake(df2, template = "rainbow1")
pie_addimages(
mypie = mypie2,
imglist = imgs2,
perc = "right",
lbl_col = "darkcyan",
border_col = "orangered",
title = "wuliu-pie"
)
```

## 繪圖前數(shù)據(jù)檢查

```{r}
# wrong <- c(1, 2, 3)
# wrong2 <- data.frame("a" = c(1, 2, 3), "b" = c("ex", "am", "ple"))
# right <- data.frame("a" = c("ex", "am", "ple"), "b" = c(1, 2, 3))
# pie_datacheck(wrong2) # Error
# pie_datacheck(right) # No Error ==> OK!
# pie_datacheck(right, check = TRUE) # Positive message
```



## 餅圖模板列表

```{r}
pie_template_list
```

## 餅圖模板列表2

```{r}
pie_template_list_pro
```

## 餅圖模板

```{r}
pie_templates(template = "bw1", n_groups = 3, perc = TRUE)

```

## 餅圖模板

```{r}

pie_templates(template = "watermelon2", n_groups = 8)
```