作者linda841004 (水凝結)
看板R_Language
標題[問題] shiny 圖表標籤格式、圖表位置
時間Mon Jan 22 16:23:49 2024
[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)s
[軟體熟悉度]:
入門(寫過其他程式，只是對語法不熟悉)s
[問題敘述]:
為了解決一個問題，衍生了更多問題的我....
問題1：如何將圖表的y軸座標、資料標籤改以百分比呈現？
問題2：如何將圖表置中？
嘗試column(12,align=center,無反應
問題3：土法煉鋼(*100再黏一個%)將表格資料改成百分比，但因為是文字格式所以靠左，閱讀不易，可以改成靠右嗎？或是有其他方式直接改成百分比格式呢？
問題4：原始資料無法直接作圖嗎？(目前是依據age拆檔+一個age分組欄位，最後垂直合併)
還請各路好手幫幫忙
shiny結果檔
http://i.imgur.com/8iYEMNO.jpg
-----------------------
原始資料
http://i.imgur.com/dLWAVAW.jpg
-----------------------
依原始資料修改的作圖資料檔（截部分）
http://i.imgur.com/ooEHG5x.jpg
-----------------------
[程式範例]:
s
library(shiny)
library(stringr)
library(highcharter)
library(dplyr)
aa <- data.frame(
year=c(2005,2006,2007,2008,2009,2010),
age_18=c(0.951,0.804,0.758,0.68,0.60,0.582),
age19_49=c(0.964,0.852,0.705,0.71,0.677,0.611),
age50_74=c(0.900,0.796,0.69,0.615,0.515,0.58),
age75_=c(0.652,0.67,0.60,0.453,0.453,0.403))
#資料要做圖必須改呈現方式
age = c("age_18")
aa_1 <- subset(aa,select=c(year,age_18)) %>%
rename(pt=age_18)
aa_1$age <- age
age = c("age19_49")
aa_2 <- subset(aa,select=c(year,age19_49)) %>%
rename(pt=age19_49)
aa_2$age <- age
age = c("age50_74")
aa_3 <- subset(aa,select=c(year,age50_74)) %>%
rename(pt=age50_74)
aa_3$age <- age
age = c("age75_")
aa_4 <- subset(aa,select=c(year,age75_)) %>%
rename(pt=age75_)
aa_4$age <- age
#rbind：rbind(data1,data2)列合併
aa_all <-rbind(rbind(rbind(aa_1,aa_2),aa_3),aa_4)
aa$age_18 <- str_c(aa$age_18*100,"%")
aa$age19_49 <- str_c(aa$age19_49*100,"%")
aa$age50_74 <- str_c(aa$age50_74*100,"%")
aa$age75_ <- str_c(aa$age75_*100,"%")
#資料表格呈現時用原始資料(aa)，但作圖用重新製作的資料(aa_all)
#做圖只會呈現0.xx，沒有呈現百分比(用str_c改成百分比格式卻無法作圖)
ui <- fluidPage(
fluidRow(
column(12,
DT::dataTableOutput("aa_table")),
column(8,
highchartOutput("aa_chart")))
)
server <- function(input,output){
output$aa_table <- DT::renderDataTable(
aa,options = list(ordering = FALSE,searching = FALSE))
output$aa_chart <-renderHighchart({
aa_all %>%
hchart('line', hcaes(x = year, y = pt, group=age)) %>%
hc_title(text = "各年齡占率(%)")
})
}
shinyApp(ui = ui, server = server)
[環境敘述]:
R Studio
[關鍵字]:
格式、百分比、位置
-----
Sent from JPTT on my Google Pixel 8.
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.224.140.146 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1705911831.A.79E.html
1F：推 locka: 你用的套件是highcharter，所以R原本的column(align...)函 01/22 17:48
2F：推 locka: 式跟參數在這裡不適用。這是一種使用網頁技術製作的互動式 01/22 17:48
3F：推 locka: 圖表套件，有js跟html基礎的話，翻highcharter官方文件可以 01/22 17:48
4F：推 locka: 找到客製化說明。一般如果沒有互動需求，單純靜態作圖的話 01/22 17:48
5F：推 locka: 可以考慮使用ggplot2套件~~ 01/22 17:48
6F：→ linda841004: 了解，需要使用到互動式圖表，會再去研究研究！謝謝 01/23 09:27
7F：→ linda841004: ！ 01/23 09:27
8F：推 Autumn06513: 針對百分比格式 我都直接用formattable這個package 02/09 11:07
9F：→ Autumn06513: 去轉 很方便xD 02/09 11:07