Я хотел бы создать график timevis, в котором размер шрифта изменяется в зависимости от важности переменной.
Используя опцию 'style' во фрейме исходных данных, я могу изменить цвет шрифта.Однако, когда я использую этот же метод, чтобы попытаться изменить размер шрифта, R неправильно отображает переменные.
Вот пример моих данных:
data <- structure(list(groups = c("Deadline.1", "Deadline.1", "Deadline.1",
"Deadline.1", "Deadline.1"), content = c("Geography Tutorials: Critical
Thinking & Techniques", "Principles of Geographical Inquiry I", "Geography
in Action",
"Physical Geography: Earth Surface Processes & Landforms", "Biogeography &
Ecology"
), start = structure(c(17459, 17505, 17631, 17911, 18048), class = "Date"),
end = structure(c(17459, 17505, 17631, 17911, 18048), class = "Date"),
type = c("point", "point", "point", "point", "point"), id = c(1L,
2L, 7L, 9L, 10L), Assessment = c("1500 word essay ", "Group survey",
"20% attendance (5% per block)", "2 hr exam ", "2 hr exam "
), Percentage = c(15, 15, 20, 100, 100), style = c("'font-size:15px;'",
"'font-size:15px;'", "'font-size:20px;'", "'font-size:100px;'",
"'font-size:100px;'")), row.names = c(NA, 5L), class = "data.frame")
Вот соответствующий фрагмент моего кода.Очевидно, что в финальной версии я сделаю более тонкую функцию связи между «процентом» и размером шрифта.Но это не работает независимо от размера шрифта.
library(shiny)
library(timevis)
library(tidyr)
library(plyr)
library(dplyr)
data$style <- paste0("'font-size:", data$Percentage, "px;'")
### example time vis rendering (doesn't work)
timevis(data = data[2:3, ]) ### random variable choice
### but this works
data$style <- 'color: red'
timevis(data = data[2:3, ])
Любые предложения приветствуются.Я модельер, а не разработчик приложений, поэтому извиняюсь, если это связано с тривиальной ошибкой HTML.