我需要在闪亮的应用程序中向一系列 textOutput 添加一个 CSS 类。
当我尝试时，例如：
textOutput('text', class = 'error')
我得到：
Warning: Error in textOutput: unused argument (class = "error")
可以更改该 textOutput 的 id 的 CSS。但是，我的 id 是动态生成的，所以这不是一个好的解决方案。一种可能的替代方法是“抓取”以/包含“error”（例如“error1”、“error2”）开头的所有 id，但我不确定这在我的 CSS 样式表中是否可行。
这需要R中的库sf和ggplot2。我有一个带有4个线串的sf对象。其中三个相同，一个扩展：
a <- st_linestring(rbind(c(2,2), c(3,3), c(3,2)))
b <- st_linestring(rbind(c(2,2), c(3,3)))
c <- st_linestring(rbind(c(2,2), c(3,3)))
d <- st_linestring(rbind(c(2,2), c(3,3)))
testsf <- st_sf(object = c(1, 2, 3, 4), geometry = st_sfc(a, b, c, d), crs = 4326)`
如果我在ggplot2中以alpha = 0.1绘制此图，我希望对角线比垂直线更暗，因为它发生得更频繁。这是ggplot2中的正常（非SF）行为。
ggplot(data = testsf) + geom_sf(data = testsf, alpha = 0.1, lwd = 2, color = "black")
但是，所有行似乎都等于alpha。为什么会这样呢？
更新：如果我尝试
testsf %<>% dplyr::mutate(geochar = as.character(geometry)) %>% dplyr::group_by(geochar) %>% dplyr::tally() %>% sf::st_cast()
ggplot(data = testsf) + geom_sf(data = testsf, aes(alpha = n), lwd = …我有一个由 ID、日期时间和值组成的 data.frame。对于每个 ID，我想扩展日期时间，以便在最小值和最大值之间每小时有一个。ID 和Value 列应填写各自的值（即不是NA）。永远不会出现每个 ID 有多个唯一 Value 值的情况。例如，新的 data.frame 应有 4 行 ID == 1 和 5 行 ID == 2（总共 9 行）。最简单的方法是什么？
我通常使用 dplyr，因此将接受 base 或 dplyr/tidyverse 方法
library(dplyr)
library(lubridate)
dt <- Sys.time() %>% floor_date('hours')
df <- data.frame(ID = c(1, 1, 2, 2),
DateTime = c(dt, dt + hours(3), dt + hours(6), dt + hours(9)),
Value = c(3, 3, 4, 4))
预期输出是：
output <- data.frame(ID = c(1, 1, 1, 1, 2, 2, 2, 2),
DateTime = c(dt, …五十斯塔特包提供了一张很棒的美国地图，下面有夏威夷和阿拉斯加的插图。对象五十_状态已经被强化以与 ggplot2 一起使用。但是，我想使用 geom_sf 将其绘制为 sf 对象。
作为一个更普遍的问题，将强化的 data.frame 转换回 sf 多边形的最佳方法是什么？
library(fiftystater)
fifty_states <– fifty_states
> head(fifty_states)
long lat order hole piece id group
1 -85.07007 31.98070 1 FALSE 1 alabama Alabama.1
2 -85.11515 31.90742 2 FALSE 1 alabama Alabama.1
3 -85.13557 31.85488 3 FALSE 1 alabama Alabama.1
4 -85.13156 31.78381 4 FALSE 1 alabama Alabama.1
5 -85.13017 31.77885 5 FALSE 1 alabama Alabama.1
6 -85.11529 31.73157 6 FALSE 1 alabama Alabama.1