[問題] shiny 圖表標籤格式、圖表位置

看板R_Language作者 (水凝結)時間4月前 (2024/01/22 16:23), 編輯推噓6(603)
留言9則, 3人參與, 3月前最新討論串1/1
[問題類型]: 程式諮詢(我想用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://www.ptt.cc/bbs/R_Language/M.1705911831.A.79E.html

01/22 17:48, 4月前 , 1F
你用的套件是highcharter,所以R原本的column(align...)函
01/22 17:48, 1F

01/22 17:48, 4月前 , 2F
式跟參數在這裡不適用。這是一種使用網頁技術製作的互動式
01/22 17:48, 2F

01/22 17:48, 4月前 , 3F
圖表套件,有js跟html基礎的話,翻highcharter官方文件可以
01/22 17:48, 3F

01/22 17:48, 4月前 , 4F
找到客製化說明。一般如果沒有互動需求,單純靜態作圖的話
01/22 17:48, 4F

01/22 17:48, 4月前 , 5F
可以考慮使用ggplot2套件~~
01/22 17:48, 5F

01/23 09:27, 4月前 , 6F
了解,需要使用到互動式圖表,會再去研究研究!謝謝
01/23 09:27, 6F

01/23 09:27, 4月前 , 7F
01/23 09:27, 7F

02/09 11:07, 3月前 , 8F
針對百分比格式 我都直接用formattable這個package
02/09 11:07, 8F

02/09 11:07, 3月前 , 9F
去轉 很方便xD
02/09 11:07, 9F
文章代碼(AID): #1bhYONUU (R_Language)
文章代碼(AID): #1bhYONUU (R_Language)