2017-08-28 86 views

回答

0

目前尚不清楚該如何OP想顯示。如果是創建一個新的列,使用

library(DT) 
library(stringi) 
datatable(data.frame(newcol = stri_unescape_unicode('\u20b9531'))) 

輸出

enter image description here


如果這需要在一個閃亮的應用程序(創建數據集中「哩」的新列)

library(ggplot2) 
library(shiny) 
ui <- fluidPage(
    fluidRow(
    DT::dataTableOutput("tbl") 
) 

) 

server <- function(input, output) {  
    output$tbl <- DT::renderDataTable(DT::datatable(
     transform(mpg, newcol = stri_unescape_unicode('\u20b9531')) 
    ))} 

shinyApp(ui = ui, server = server) 

輸出

enter image description here

相關問題