ゼロ（）ラウンドの後に（）

Question

私はベクトルを印刷しようとしている：私は行うと

total_nb_visits <- 20302079 
total_nb_visits_y1 <- 19299803 
total_nb_visitors <- 17707555 
total_nb_visitors_y1 <- 17196674 
CVR <- 0.02274954 
CVR_y1 <- 0.02293334 

：

exportable <- rbind(c(total_nb_visits,total_nb_visits_y1,((total_nb_visits-total_nb_visits_y1)/total_nb_visits_y1)*100), 
        c(total_nb_visitors,total_nb_visitors_y1,((total_nb_visitors-total_nb_visitors_y1)/total_nb_visitors_y1)*100), 
        c(CVR,CVR_y1,((CVR-CVR_y1)/CVR_y1))) 

私は取得しています：

exportable 
        [,1]    [,2]   [,3] 
[1,] 20302079.00000000 19299803.00000000 5.193192905 
[2,] 17707555.00000000 17196674.00000000 2.970812844 
[3,]  0.02274954  0.02293334 -0.008014533 

を

そして、私は取得したい：

    [,1]    [,2]   [,3] 
[1,]   20302079   19299803 5.193192905 
[2,]   17707555   17196674 2.970812844 
[3,]  0.02274954  0.02293334 -0.008014533 

そしてround() ...

が動作していない私は、私はまた、科学的表記を削除することoptions(scipen=999)でプレーしてきたことを追加する必要があります...

誰も私を助けることができますか？

ありがとうございます！

Answer 1

あなたはこのようprettynum使用することができます：

exportable <- as.data.table(
    rbind(
    c(prettyNum(total_nb_visits), 
     total_nb_visits_y1, round(((total_nb_visits - total_nb_visits_y1)/total_nb_visits_y1) * 100, 9)), 
    c(total_nb_visitors, 
     total_nb_visitors_y1, 
     round(((total_nb_visitors - total_nb_visitors_y1)/total_nb_visitors_y1) * 100, 9)), 
    c(CVR,CVR_y1, round((CVR-CVR_y1)/CVR_y1, 9)))) 

唯一の欠点は、それが文字に値を変換しますが、あなたはあなたのきれいな出力を持っているということです！