Исправление
frigate_freedom,
(текущая версия)
:
Прошу прощения за тупняк. Оказывается, надо было применять formatC к каждому столбцу (строке), о чём мне и говорили.
Решение выглядит так:
raspredel <- read.csv(file="raspredel.csv", sep=';', header=F, encoding = "cp1251", nrows = 6)[ ,9:16]
raspredel.v1 <- formatC(as.numeric(raspredel[1,2:8]), format="f", digits=2)
raspredel.v2 <- formatC(as.numeric(raspredel[2,2:8]), format="f", digits=0)
raspredel.v3 <- formatC(as.numeric(raspredel[3,2:8]), format="f", digits=2)
raspredel.v4 <- formatC(as.numeric(raspredel[4,2:8]), format="f", digits=2)
raspredel.v5 <- formatC(as.numeric(raspredel[5,2:8]), format="f", digits=2)
raspredel.v6 <- formatC(as.numeric(raspredel[6,2:8]), format="f", digits=2)
raspredel0 <- rbind(raspredel.v1,
raspredel.v2,
raspredel.v3,
raspredel.v4,
raspredel.v5,
raspredel.v6
)
raspredel1 <- data.frame(c("$\\xi$", "$H_{zi}$, $\\frac{\\text{кДж}}{\\text{кг}}$", "$\\eta_i$", "$T_{02i}$, К", "$\\pi_i$", "$T_{01i}$, К"),
raspredel0
)
kable(raspredel1, "latex", caption = "Распределение затраченной работы и КПД КВД по ступеням", escape = F, col.names = c("", "1", "2", "3", "4", "5", "6", "7"), align="c", row.names = F) %>%
kable_styling(latex_options = c("hold_position"))
Пришлось делать ручками, но ничего лучше не придумал, главное — работает.
Исходная версия Deleted, :
Прошу прощения за тупняк. Оказывается, надо было применять formatC к каждому столбцу (строке), о чём мне и говорили.
Решение выглядит так:
raspredel <- read.csv(file="raspredel.csv", sep=';', header=F, encoding = "cp1251", nrows = 6)[ ,9:16]
raspredel.v1 <- formatC(as.numeric(raspredel[1,2:8]), format="f", digits=2)
raspredel.v2 <- formatC(as.numeric(raspredel[2,2:8]), format="f", digits=0)
raspredel.v3 <- formatC(as.numeric(raspredel[3,2:8]), format="f", digits=2)
raspredel0 <- rbind(raspredel.v1,
raspredel.v2,
raspredel.v3)
raspredel1 <- data.frame(c("1", "2", "3"),
raspredel0)
Пришлось делать ручками, но ничего лучше не придумал, главное — работает.