Те же данные Excel, тот же файл .RMD, другой результат уценки - PullRequest
Новая
       14

Те же данные Excel, тот же файл .RMD, другой результат уценки

0 голосов
/ 07 октября 2018

Проблема: тот же код, те же данные, но другой вывод.
Недавно я нанял кого-то и настроил его на R. Когда мы пытаемся связать файл .pdf, используя тот же файл .rmd с теми же данными, которые мы получаемразные результаты.Короче говоря, код читает файл Excel и записывает значение из одной из ячеек.С моего компьютера вывод «100 000».Со своего компьютера он выглядит как «1e + 05».Вопрос в том, как сделать вывод «100 000» с обоих компьютеров?Когда вы посмотрите на код, вы увидите, что я печатаю вектор, используя код 

av$PreTaxValue <- prettyNum(round(av$PreTaxValue, 0), big.mark = ",")

Мне странно, что одно число в векторе находится в научной нотации, а другие значения имеют запятую.

Я поместил файл уценки (.rmd), данные Excel и два (по одному с каждого компьютера) выходных файла .PDF в Github repo .При вязании .rmd создает .pdf.Рабочая книга Control.xlsx содержит данные.У debug1.pdf есть результат, который, я думаю, должен быть.У строки Taxable, столбца PreTaxvValue есть «100 000».В debug.pdf это значение отображается как «1e05»

Любая помощь приветствуется.Дополнительные детали: мы оба установили tinytex.Ниже приведена информация о версиях, которые мы используем. 

R.Version() from my PC produces:    
$platform   
[1] "x86_64-w64-mingw32"    
$arch   
[1] "x86_64"    
$os    
[1] "mingw32"    
$system    
[1] "x86_64, mingw32"    
$status    
[1] ""    
$major    
[1] "3"    
$minor    
[1] "5.1"    
$year    
[1] "2018"    
$month    
[1] "07"    
$day    
[1] "02"    
$svn rev    
[1] "74947"    
$language    
[1] "R"    
$version.string    
[1] "R version 3.5.1 (2018-07-02)"    
$nickname    
[1] "Feather Spray"

From my colleague's PC: R.Version() produces:    
$platform    
[1] "x86_64-w64-mingw32"    
$arch    
[1] "x86_64"    
$os    
[1] "mingw32"    
$system    
[1] "x86_64, mingw32"    
$status    
[1] ""    
$major    
[1] "3"    
$minor    
[1] "5.1"    
$year    
[1] "2018"    
$month    
[1] "07"    
$day    
[1] "02"    
$svn rev    
[1] "74947"    
$language    
[1] "R"    
$version.string    
[1] "R version 3.5.1 (2018-07-02)"    
$nickname    
[1] "Feather Spray"

1 Ответ

0 голосов
/ 07 октября 2018

Поскольку Alaleh A упоминается в комментарии, вы можете существенно отключить научную запись, изменив глобальную опцию scipen: 

options(scipen=100)

, как обсуждалось в в этом переполнении стека.вопрос .Однако, если вы не хотите использовать его в качестве глобального параметра, вы можете изменить 

prettyNum(round(av$PreTaxValue, 0), big.mark = ",")

на 

prettyNum(format(round(av$PreTaxValue, 0), scientific = FALSE), big.mark = ",")

(и аналогично для av$AfterTaxValue).Учтите следующее: 

x = 100000.00
prettyNum(round(x, 0), big.mark = ",")
#> [1] "1e+05"
prettyNum(format(round(x, 0), scientific = FALSE), big.mark = ",")
#> [1] "100,000"
...