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

看板R_Language作者linda841004 (水凝結)時間10月前 (2024/01/22 16:23)推噓6(6推 0噓 3→)

留言9則, 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