• 在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...
    由 发布于 vectorrmemory-efficient

  • 绘制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)
    由 发布于 graphrrgl

  • 如何对棒棒糖图表进行排序和标签

    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...
    由 发布于 rggplot2

  • 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...
    由 发布于 rggplot2

  • 在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', ) 我怎样才能做到这一点？
    由 发布于 rdplyrtidyverse

  • 固定水平绘图条形图的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_...
    由 发布于 rshinyggplot2plotly

  • 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...
    由 发布于 dataframer

  • 将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

  • 如何将变量用于块选项？

    我尝试在执行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%",...
    由 发布于 rknitrr-markdown

  • 如何在不出现错误消息的情况下将文本放入数据框

    我一直在尝试模仿Emily Dickinson的简短文本在Julia Minge和David Robinson所著的《 R：一种整齐的方法》中的文本挖掘中的使用，使用的是Philip Larkin稍长的文本。但是，尽管文本以R格式加载，但如果没有以下错误消息，我将无法将其放入数据框： > library(tidyverse) ── Attaching packages ──────────────────────────────────────────────────────────────────────...
    由 发布于 rtibble

  • 根据几个条件创建一个新列

    我想根据强加于几列的某些条件创建一个新列。例如，这是一个示例数据集： 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...
    由 发布于 rdata-manipulationrecode

  • 如何在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...
    由 发布于 dataframerdplyr

  • 如何创建循环（水平不与参考重叠时）

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

  • 如何强制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...
    由 发布于 rggplot2
公告

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

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

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