• 在while循环中停止R中的修改时复制行为

    我正在对R进行拒绝采样,该采样必须尽可能高效。这是我的原始代码: N <- 1e8 x <- rexp(N, 3) + rexp(N, 3) todo <- runif(N, -1, 1) < cos(pi*x) while(any(todo)){ x[todo] <- rexp(sum(todo), 3) + rexp(sum(todo), 3) todo[todo] <- runif(sum(todo), -1, 1) < cos(3.2*pi*x[todo]) } I was readin...
  • 绘制3D网络

    我有3维空间(x,y和z)中存在的一系列点,以及确定这些点之间的连接的邻接矩阵(请参见下面的示例)。我将如何绘制?谢谢! points = matrix(c(2,3,2, 5,4,9, 4,1,8), byrow = TRUE, ncol = 3) #each row is a point and the colums are x, y, and z respectively adj_mat = matrix(c(0,1,0, 1,0,1, 0,1,0), byrow = TRUE, ncol = 3)
  • 如何对棒棒糖图表进行排序和标签

    I have a lollipop chart that I would like to change the bars to descending order, and add data labels to. Anyone know would I go about doing this? My data is here https://gofile.io/d/MpmZsy ggplot(states, aes(x=state, y=count)) + geom_segment( aes(x=stat...
  • ggplot2中带注释的逗号和撇号

    我想用逗号创建一个标签,如下所示: label2 <- "epsilon[f[c]']" label3 <- "epsilon[f[c],adj]" 我使用以下内容: ... + annotate("text", x = -0.003, y= -0.25, label = label2, size = fontsize, family = "sans", parse = TRUE) + annotate("text", x = -0.003, y= -0.25, labe...
  • 在R的列中获取字符串的最后一个元素?

    我有这样的数据: df <- tribble( ~A, ~B, 'a', '304 49494 3033 23', 'b', '958 49494 5859', 'c', '304 4535 59', ) 现在,我想创建一个新列来显示B的最后一个元素。这是所需的输出: df <- tribble( ~A, ~C, 'a', '23', 'b', '5859', 'c', '59', ) 我怎样才能做到这一点?
  • 固定水平绘图条形图的X轴

    我在Shiny Dashboard中使用R的plotly包在下面创建漏斗图。 当前情节。 此图表存在一个问题,因为x轴在0的左侧显示负值。通常这当然不是问题,但这是漏斗图,因此0左侧的值不是' t确实为负,因为它们代表计数数据。我不知道该如何解决。 所需的情节。 该代码是 output$plot_piramide_casos <- renderPlotly({ m <- list( l = 50, r = 50, b = 100, t = 100, pad = 4 ) plot_...
  • R表函数,包括过滤出的行

    我有一个用readRDS作为df读取的数据框。这包含许多带有城市和州的行。我仅将加利福尼亚州的数据保留为df_ca。 df_ca包含100列,而我仅保留一些分类列。我创建一个名为df_cat的新分类df。我想遍历分类列并使用表函数获取频率。忽略用于故障排除的循环,我将var设置为“ city”,并执行表函数以创建一个名为cat_freq的新df。 cat_freq包含df而非df_ca的所有城市,其Freq为0。如果将它们过滤掉,为什么甚至显示它们?我是R的新手,但具有python背景 df <- as.d...
  • 将R中的两列合并为一个长列

    我在R中有一个数据集,其中有多个列,我都需要将它们都放在同一列中。 这是一个样本数据集 Net1 Net2 Net3 Net4 Net5 Net6 Net7 Net8 Net9 Net10 Net11 Net12 <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <lgl> <lgl> 1 -18 -30 22 27 16 47 -31 53 -10 NA NA...
  • 如何将变量用于块选项?

    我尝试在执行R块以定义大小块选项后评估变量: --- title: "R Notebook" output: pdf_document: default html_notebook: default --- ```{r setup} library("tidyverse") theme_set(theme_bw()) theme_update(strip.background = element_blank()) knitr::opts_chunk$set(out.width = "80%",...
  • 如何在不出现错误消息的情况下将文本放入数据框

    我一直在尝试模仿Emily Dickinson的简短文本在Julia Minge和David Robinson所著的《 R:一种整齐的方法》中的文本挖掘中的使用,使用的是Philip Larkin稍长的文本。但是,尽管文本以R格式加载,但如果没有以下错误消息,我将无法将其放入数据框: > library(tidyverse) ── Attaching packages ──────────────────────────────────────────────────────────────────────...
  • 根据几个条件创建一个新列

    我想根据强加于几列的某些条件创建一个新列。例如,这是一个示例数据集: a <- data.frame(x=c(1,0,1,0,0), y=c(0,0,0,0,0), z=c(1,1,0,0,0)) a x y z 1 1 0 1 2 0 0 1 3 1 0 0 4 0 0 0 5 0 0 0 具体来说,如果存在任何特定的行1,则新列返回1。如果所有列均为0,则新列返回0。因此具有新列的数据集将为 x y z w 1 1 0 1 1 2 0 0 1 1 3 1 0 0 1 4 0 0 0 0 5 0...
  • 如何在R中读取数据帧的setdiff?

    我正在努力在两个数据帧上实际使用setdiff的结果(对我来说,作为矢量是有意义的,但对于数据帧则不那么有用)。 收益: m1 <- mtcars m2 <- mtcars m2[m2$cyl == 4, "cyl"] <- 3.99 setdiff(m1,m2) cyl Mazda RX4 6 Datsun 710 4 Hornet Sportabout 8 # I know the 6 and 8 are there be...
  • 如何创建循环(水平不与参考重叠时)

    我已经用R语言编写了一些代码。该代码获取一些数据并将其分为训练集和测试集。然后,我在训练集上拟合了“生存随机森林”模型。之后,我使用模型来预测测试集中的观察结果。 由于我要处理的问题类型(“生存分析”),必须为每个“唯一时间”(在文件“ unique.death.time”内部)创建一个混淆矩阵。对于每个唯一时间产生的每个混淆矩阵,我都对相应的“敏感度”值(例如,敏感度_1001,敏感度_2005等)感兴趣。我正在尝试获取所有这些敏感度值:我想用它们作图(对比唯一的死亡时间)并确定平均敏感度值。 为此,我需...
  • 如何强制ggplot在某个日期开始?

    我使用了搜索功能,但令人惊讶的是找不到在这里有效的解决方案。我有以下数据集: data Date Type Treatment Inches cm 2 2019-05-06 Precipitation 100% 0.06 0.1524 3 2019-05-09 Precipitation 100% 0.65 1.6510 4 2019-05-10 Precipitation 100% 0.20 0.5080 5 2...
公告

《从零开始开发BBS》课程上线啦,快来跟着我一步步搭建属于你的BBS吧。

课程地址:https://www.shiyanlou.com/courses/1436
9折优惠邀请码: ZHwfIjb1

该课程会带领大家一步步的了解并熟悉Go语言开发,如果你是一个Go语言初学者,或者正准备学习Go语言,那么这个课程非常适合你。如果你熟练掌握了本课程中的知识点,相信你就已经入门Go语言开发,并能胜任日常的开发工作了。