小编ell*_*iot的帖子

我一直无法找到一个好的方法来做到这一点。我正在尝试创建一个用户函数，用于将 RColorBrewer 颜色映射到 data_frame 中的变量级别。我正在 igraph 中绘制节点颜色，它需要一个颜色向量。在出现错误之前我已经做到了这一点。

library(tidyverse)
library(RColorBrewer)

 my_data <- data_frame(
    x = sample(c('red','white','foo'),25,T)
 ) 

my_data %>% 
  group_by(x) %>% 
  mutate(Blues = brewer.pal(n_distinct(x),'Spectral'))  ## this doesn't work

我想要一个工作功能。像下面这样：

function(df,vary){
    df %>%
       group_by(vary) %>%
       mutate(Blues = brewer.pal(n_distinct(vary),'Spectral')) %>%
       select(Blues)
    }

谢谢你的帮助！

我有一个颜色数据框,我想找到一种方法来创建第三列.第三列应由一种颜色组成,该颜色是另外两列的混合.我有一个示例数据框和一个我认为可以解决的功能.它使用R的colorRampPalette()功能和purrr::map2().但是,这会返回列出的列,当列出不列出时,列与数据帧中的第一列相同.

# Create a function for colors

x <- RColorBrewer::brewer.pal(11, 'Spectral')

spectral_col <- colorRampPalette(x)

# Apply this function to 

tibble(first = sample(spectral_col(100)),
       second = sample(spectral_col(100))) %>% 
  mutate(middle.color = map2(first, second, function(x, y){
    k <- colorRampPalette(c(x, y))
    k(1)

  })) 

有任何想法吗？

我有一个大型数据库，其中包含一系列带有数字的列。我想dplyr用来添加一个新列，mutate，它的值是具有最大值的列的名称。所以，对于下面的例子

set.seed(123)
data_frame(
  bob = rnorm(10),
  sam = rnorm(10),
  dick = rnorm(10)
    )
# A tibble: 5 x 3
      bob    sam   dick
    <dbl>  <dbl>  <dbl>
1 -0.560   1.72   1.22 
2 -0.230   0.461  0.360
3  1.56   -1.27   0.401
4  0.0705 -0.687  0.111
5  0.129  -0.446 -0.556

新列将等于 c('sam', 'sam', 'bob', 'dick', 'bob') 因为它们具有数据集中列的最大值。任何想法？

卢旺达合作社有一个数据库; 它有大约155页我想访问的数据(没有滚动整个网站).我在使用rvestR中的包识别正确的xpath或css时遇到问题.我也使用该selector gadget工具来帮助识别正确的节点.

我的问题是我收到一个'字符(0)'表示我没有抓取正确的数据.

url <- 'http://www.rca.gov.rw/wemis/registration/all.php?start=0&status=approved'

html <- read_html(url)

rank_data_html <- html_nodes(html, css = '.primary td')

rank_data <- html_text(rank_data_html)

head(rank_data)

有没有办法改变代码循环并刮掉数据？