[英]How to transpose a formattable in R Shiny?
有沒有人可以幫助我轉換格式表? 下面是一些說明問題的代碼。 如果在formattable()中使用DF,則腳本運行良好,但如果使用轉置(tDF),則腳本無法正常運行。 任何建議都值得歡迎。
library(formattable)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
Name=c("Dow Jones", "S&P 500", "Technology",
"IBM", "Apple", "Microsoft"),
Value=accounting(c(15988.08, 1880.33, NA,
130.00, 97.05, 50.99)),
Change=percent(c(-0.0239, -0.0216, 0.021,
-0.0219, -0.0248, -0.0399)))
tDF <- t(DF)
formattable(tDF, list(
Name=formatter(
"span",
style = x ~ ifelse(x == "Technology",
style(font.weight = "bold"), NA)),
Value = color_tile("white", "orange"),
Change = formatter(
"span",
style = x ~ style(color = ifelse(x < 0 , "red", "green")),
x ~ icontext(ifelse(x < 0, "arrow-down", "arrow-up"), x)))
)
轉置將DF數據框轉換為矩陣: documentation 。 這對您有幫助嗎?
tDF <- as.data.frame(t(DF))
我不是這個軟件包的專家,您原始代碼的輸出仍然很明顯:
> class(DF)
[1] "data.frame"
> class(tDF)
[1] "matrix"
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.