小编eme*_*hex的帖子

我有一个如下所示的条形图:

ggplot(mtcars, aes(x = cyl, y = hp)) + 
    geom_bar(stat = "identity", width = 1)

我想调整geom_bar参数,使条向右移动(不居中)......

给定数据帧df:

x <- c("X1", "X2", "X3", "X4", "X5")
y <- c("00L0", "0", "00012L", "0123L0", "0D0")
df <- data.frame(x, y)

如何利用tidyr::separate将y字符串的每个字符放入一个单独的列(每个字符串位置一列)？

期望的输出:

x <- c("X1", "X2", "X3", "X4", "X5")
m1 <- c(0, 0, 0, 0, 0)
m2 <- c(0, NA, 0, 1, "D")
m3 <- c("L", NA, 0, 2, 0)
mN <- c(NA, NA, NA, NA, NA)
df <- data.frame(x, m1, m2, m3, mN)

其中mN理论上可以达到m100(100列)或更高.

我如何解析和处理已存在于数据框内的JSON？

样本数据:

df <- data.frame(
    id = c("x1", "x2"), 
    y = c('[{"Property":"94","Value":"Error"},{"Property":"C1","Value":"Found Match"},{"Property":"C2","Value":"Address Mismatch"}]', '[{"Property":"81","Value":"XYZ"},{"Property":"D1","Value":"Blah Blah"},{"Property":"Z2","Value":"Email Mismatch"}]')
)

我想提取,格式化并将列中的原始JSON y分成有序列,理想情况下是library(jsonlite).

提前致谢!

我有一个如下所示的数据框:

library(dplyr)
df <- expand.grid(
    id = 1:3, 
    key = 1:10) %>%
    filter(!(id == 1 & key <= 4)) %>%
    filter(!(id == 2 & key %in% c(1:3, 6, 7, 10))) %>%
    filter(!(id == 3 & key %in% c(1, 2, 4, 5, 7:10))) %>%
    arrange(id, key) %>%
    cbind(value = c(10, 11, 15, 17, 20, 30, 1, 6, 8, 100, 0.2, 0.7))

• id == 1 去 key == 10
• id == 2 去 key == 9
• id == 3 去 key == …

这是我的字符串:

'C. AndersonN. ChubbD. ForemanT. GurleyM. IngramA. JonesJ. Richard'

我想使用正则表达式来分割大写字母+句点以生成如下列表:

['C. Anderson', 'N. Chubb', 'D. Foreman', 'T. Gurley', 'M. Ingram', 'A. Jones', 'J. Richard']

提前致谢!