Rデータからの一意のソートされた行の単一の列。

Question

私は顧客、品目、販売をリストアップする小さなアプリを持っています。私は、テーブルから参照リストを生成したいが、私はkeybyを使用してリストを注文しようとすると2つの列を取得します。それはおそらく非常にシンプルですが、私は混乱しています。以下のコードは....

library(data.table) 

company=c("A","S","W","L","T","T","W","A","T","W") 
item=c("Thingy","Thingy","Widget","Thingy","Grommit","Thingy","Grommit","Thingy","Widget","Thingy") 
sales=c(120,140,160,180,200,120,140,160,180,200) 
salesdt<-data.table(company,item,sales) 

server <- function(input, output) { 

    output$theCustomersList <- renderUI({ 
    list(
     selectInput("customer", "Choose a customer:", 
        choices = salesdt[,unique(company), keyby=company] 
        ,selectize=FALSE 
        ,selected="A" 
        ) 

    ) 
    }) 

    output$result <- renderTable(
        salesdt[company%in%c(input$customer), 
        .(valuesold=sum(sales)), item 
        ] 
       ) 

} 

ui <- fluidPage(
    sidebarLayout(
    sidebarPanel(
     uiOutput("theCustomersList") 
    ), 


    mainPanel(tableOutput('result')) 
) 
) 

shinyApp(ui = ui, server = server) 

明確にするために....私の質問は、どのように私は1つのカラムをゲットする

salesdt[,unique(company), keyby=company] 

を変更するが、注文したんです。

Answer 1

で

choices = salesdt[,unique(company), keyby=company] 

を交換してください営業担当者は、特定の順序で、会社名が選択肢に表示されることを指定していませんでした。アルファベット順に会社名を指定したい場合は、Symbolixの回答は完璧です（この目的でkeyby =を使用する必要はありません）。

また、（最初の最も重要な）行数によって、会社名

salesdt[, .N, by = company][order(-N), company] 
[1] "W" "T" "A" "S" "L" 

または総販売台数（最初再び、最も重要な）いずれの場合も

salesdt[, sum(sales), by = company][order(-V1), company] 
[1] "W" "T" "A" "L" "S" 

によってを注文することができますこれは2つのステップで行われます。（1）会社ごとのメトリック（数または合計のいずれか）をby =で計算します。（2）結果を注文しますが、会社名のみを返します。

Answer 2

choices = sort(salesdt[,unique(company)]) 

それとも

choices = sort(unique(salesdt$company)) 

それとも

salesdt[order(company), unique(company)]