小编Vla*_*lad的帖子

是否可以让 geom_smooth 产生单调递减函数？

第一个例子看起来是单调递减的：

library(tidyverse)

df <- structure(list(x = c(-55, 11, 19, 123, 133, 123, 123, 2, 86, 
84, 179, 179, 179, 179, 25, 85, 84, 179, 179, 179, 179, 25, 86, 
84, 179, 179, 179, 179, 25, 86, 84, 179, 179, 179, 179, 25, 86, 
70, 123, 123, 123, 123, 0, -45, -45, -17, -17, -17, -17, -63, 
48, 40, 67, 67, 67, 67, -25, 11, 10, 67, 67, 67, 67, -25, 11, 
10, 67, 67, 67, 67, -25, …

从数据类型名称列表更改数据框列的数据类型的一种优雅方法是什么？

这是一个例子（我正在寻找的是change_to_data_types函数）：

my_df <- iris
my_types <- c("factor", "character", "double", "logical", "character")
my_df <- my_df %>% change_to_data_types(my_types)

my_types具有与列数相同的元素数，my_df并且转换以相同的顺序进行。

这是一个“不雅”的例子

my_df$Sepal.Length <- my_df$Sepal.Length %>% as.factor()
my_df$Sepal.Width <- my_df$Sepal.Width %>% as.character()
#etc...

在R中,如何在计算行之前的定义时间段内计算cumsum？如果可能的话,首选dplyr.

例如,如果期间是10天,那么函数将实现cum_rolling10:

date    value   cumsum  cum_rolling10
1/01/2000   9   9       9
2/01/2000   1   10      10
5/01/2000   9   19      19
6/01/2000   3   22      22
7/01/2000   4   26      26
8/01/2000   3   29      29
13/01/2000  10  39      29
14/01/2000  9   48      38
18/01/2000  2   50      21
19/01/2000  9   59      30
21/01/2000  8   67      38
25/01/2000  5   72      24
26/01/2000  1   73      25
30/01/2000  6   79      20
31/01/2000  6   85      18

是否可以通过代码输入搜索框文本？要求的行为是：用户textInput('search2', "Search 2")在DT搜索框中输入文本并且该文本在DT搜索框中复制并且在DT上执行搜索。

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    textInput('search2', "Search 2"),
    DTOutput('dt')
  ),
  server = function(input, output, session) {
    output$dt = renderDT(iris)
  })

我不想以另一种方式过滤 DT 数据（我目前正在这样做） - 特别是我希望使用 DT 的搜索框功能。

我正在使用带有 R 的传单来创建一个图标集以在地图上显示，问题是我找不到一种方法来优雅地使用许多图标来完成它。

这有效：

myIconList <- iconList(myIcon[[1]], myIcon[[2]], myIcon[[3]], myIcon[[4]])

每个列表项都是一个图标。这很好，但行不通：

myIconList <- iconList(myIcon)

如果有一种方法可以迭代/连接到iconList，那也很好。

这可以一行完成吗？该示例适用于两个变量，但我想将其用于更多变量，这使得这种方法很麻烦。

library(ggplot2)
library(data.table)
library(dplyr)

a <- dcast(mpg, year ~ cyl, fun=length, value.var = "cyl")
b <- dcast(mpg, year ~ class, fun=length, value.var = "class")
c <- inner_join(a, b, by = "year")

> c
  year  4 5  6  8 2seater compact midsize minivan pickup subcompact suv
1 1999 45 0 45 27       2      25      20       6     16         19  29
2 2008 36 4 34 43       3      22      21       5     17         16  33

给定一个向量,比方说c(1, 2, 3),我想根据从其值计算的概率生成该向量的样本.这个过程如下所示 - 是否有一个R函数可以做到这一点？

一个简单的例子,使用计算为值的概率除以矢量和:c(1/6, 2/6, 3/6)来确定排序矢量中的第一个值.在这种情况下,值3具有概率3/6或50%是第一个元素,值2具有概率2/6或33.3%是第一个元素并且1具有概率1/6或16.6%.

在选择第一个元素之后,该过程对于向量的其余元素类似地继续,直到产生"统计上"有序的向量.

随着"统计"有序样本数量的增长,我预计3会有50%的时间,等等.模拟样本大小为6的示例:

c(3, 2, 1)
c(2, 3, 1)
c(3, 1, 2)
c(3, 2, 1)
c(1, 3, 2)
c(2, 1, 3)

如何更改使用 e_mark_line 生成的线的标签？这是我的尝试，我希望它有自己的标签，而不是显示数字 200。

library(echarts4r)
library(tidyverse)    

line <- list(
        xAxis = 200
        , name = "label 1"
    )

USArrests %>% 
  e_charts(Assault) %>% 
  e_scatter(Murder, Rape) %>% 
  e_mark_line(data = line, symbol = "none", name = "label 2")

如何获取 CRAN 中具有更新版本的所有软件包的数据框？例如：

df <- check_outdated_packages() # please create this function

>df
     package    installed_version    latest_cran_version
      <char>               <char>                 <char>
1: reactable                0.3.0                  0.4.4