# 柱狀圖標示數據百分比_使用Excel & ggplot2繪製
> [color=#40f1ef][name=LHB阿好伯, 2021/04/17][:earth_africa:](https://www.facebook.com/LHB0222/)
###### tags: `Excel` `可視化` `R` `ggplot2`

[TOC]


# 問題紀錄
https://www.dcard.tw/f/talk/p/235759042

用EXCEL繪製長條圖並在上面顯示百分比


# Excel解決方法
## 組合圖
Excel我想到的解決方式為使用組合圖的方式
使用散佈圖將百分比數據帶入圖中

## 計算相對百分比

## 插入組合圖
### 選擇副座標

### 設定資料標籤


調整副標籤軸範圍控制資料標籤位置

將散佈圖標記隱藏起來
將散佈圖副坐標軸隱藏起來

最後對圖形進行一些美化
[Excel檔案下載](https://1drv.ms/x/s!AuqcoLPA0_SIkP0JN_xDmkV6GrKrjw?e=4wmLQc)

## Excel 方法2
這邊在介紹一個Excel的方法
首先先設定百分比的數據格式

一樣新增資料標籤=>選擇儲存格的值



# R_ggplot2繪製

library(readr)
library(ggplot2)
library(ggeasy)
library(ggsci)
library(extrafont)


DcardData <- read_csv("D:/Dcard.csv")
p <- ggplot(DcardData,aes(x = 選項, y = 次數)) +
  geom_bar(stat="identity")  
p  +  theme_bw() +  #更改主題
  theme(text=element_text(family = "Times New Roman")) + #修改字體
  easy_x_axis_title_size(16) + #更改XY軸字體大小
  easy_y_axis_title_size(16) + 
  easy_x_axis_labels_size(14) + 
  easy_y_axis_labels_size(14) +
  geom_text(aes(label = 次數), vjust=-0.1, color=1, size=8) + 
  geom_text(aes(label = paste(round(次數/sum(次數)*100,1),"%")), vjust = 1.2, color = "white", size = 8)


🌟全文可以至下方連結觀看或是補充
https://hackmd.io/@LHB-0222/Excel_barplot

全文分享至

https://www.facebook.com/LHB0222/

https://www.instagram.com/ahb0222/

有疑問想討論的都歡迎於下方留言

喜歡的幫我分享給所有的朋友 \o/

有所錯誤歡迎指教

## 相關文章
[ggplot2推薦圖形配置](/L6Y0JBFwSHWl5RIk_Tjmsg)
[ggplot2入門筆記-1](/KI8qRuYjQNyan8POB9w_HQ)

# [:page_with_curl: 全部文章列表](https://hackmd.io/@LHB-0222/AllWritings)