• R-将圆添加到现有时间序列图

    I am trying to add a circle to a specific position of a lattice time-series xyplot. The plot that I have is: library(zoo) library(lattice) t <- structure(list(date = structure(c(18172, 18177, 18182, 18187, 18192,...
  • 如何基于输入值向R中的表插入行?

    我是R和Stackoverflow的新手,我已经在这段代码上工作了一段时间,但似乎被卡住了。代码应执行的操作:单击添加按钮时,应过滤给定的数据帧(filterParameter)以匹配用户输入。如果还不存在表,则应使用过滤后的行创建该表。如果一个。该表已经存在且具有上一行,并且再次单击添加按钮,应在现有行的下方插入新行。只要尚未插入数据,用户就应该能够添加无限数量的行。 我的问题:单击添加按钮时,已创建的表将刷新自身,并返回仅包含一行新输入值的新表。我似乎无法获得代码来添加新行,而不是每次都刷新它。关于如何...
  • 创建函数来计算两列,第二列从第一列开始计算吗?

    我正在尝试在data.table中执行以下操作,或者创建一个替换for循环的函数。但是,我不确定如何根据另一列的计算返回两列。数据集按月包含每个“位置”的销售和交付单位,但是只有第一个月的起始库存。我需要通过首先计算该位置上一个月的结束库存来计算每个期间的开始库存。每个地点的期末库存等于开始库存减去销售单位加交货单位。 这是我目前的计算方式: data <- data.table(place = c('a','b'), month = c(1,1,2,2,3,3,4,4,5...
  • 如何比较R中一个数据帧的行?

    我有一个包含很多行和至少13列的数据框。我需要将每一行与上一行进行比较,以查看两列是否完全相同,而其余各行是否不同。 如果两列中的两行相等,我想将这些行放在新的数据框中。 这是我的数据框。 前三行的样本为“ Sample”,但只有两行相同的“ Gene”。第7和8行也具有相同的样本和基因。 我想有一个新数据框,其中只有具有相同样本和相同基因的行。像这样: 我写了这段代码: Vec_sample <- c() Vec_genes <- c() Vec_variants <- c() Vec_chr <...
  • 基于因子列的阴影面

    这是我的数据的采样示例... SKOV<-as.data.frame(structure(list(sample_id = c(147, 167, 18, 131, 17, 222, 270, 19, 173, 56, 265, 151, 250, 273, 17, 61, 324, 279, 161, 144, 312, 97, 88, 167, 112, 146, 30, 17, 52, 99, 188, 135, 184, 277, 93, 305, 37, 264, 253, 74, 299,...
  • 从数据库检索的列必须强制转换为数字才能使用

    如果我从数据库(带有RMariaDB或ODBC的MySQL数据库)中检索数据,则在将数据按原样使用多个R函数(历史记录,箱线图,而不是sd或摘要)时出现错误: Error in hist.default(lockout_per_hour$alarm_count) : some 'x' not counted; maybe 'breaks' do not span range of 'x' In addition: Warning message: In pretty.default(range(x),...
  • 使用gghighlight时为多个geom_hlines创建图例

    我想在geom_hline中为水平线创建图例。我使用的数据来自3个不同的数据框。我也在使用gghighlight,我相信它会掩盖任何传说。在这种情况下,我如何强制使用图例? 这三个数据帧是: 1)“数据集”,用于存储所有点的值 2)“限制”,其中包含某些参数的最大值,最小值和目标 3)“均值”,其中包含每个参数的均值。 以下是数据集的最小可重现示例: dataset <- data.frame( param = c('A','A','A','A','A', 'T','T','T','T','T', 'N...
  • 在R中使用rle()函数后如何提取日期

    我有以下数据文件。这是四列(YY,MM,DD,RR)的每日降雨数据。抱歉,这是我可以生成的最小数据。 dat<-structure(list(YY = c(1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, 1979L, ...
  • 在R中提取Gene Games RNAseq数据集

    I have a question I can understand or solve. I downloaded GSE115262 From GEO. https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=GSE115262. I want to extract the gene names from GSM3172784HC$annotation.gene_name. When I do this, I get numbers not the gene ...
  • 函数在包外部运行,但不在包内部运行

    请不要介意很长的代码块,我的函数有点长,而且是葡萄牙语。 我试图将两个函数放在一个包中: #' @importFrom dplyr %>% arrange bind_cols filter group_by group_indices mutate mutate_at select summarise ungroup #' @importFrom dplyr %>% arrange bind_cols filter group_by group_indices mutate mutate_at se...
  • 条宽度相等的facet_wrap

    我在创建带有两个组的多面条形图时遇到了麻烦,因为最终我得到了宽度不相等的条形图。 Most of the solutions involve the use of facet_grid. However, am comfortable with facet_wrapsince I need to separate my two groups and have group 1 plots ontop of group 2 and facet_wrap has an option of specifying n...
  • 调用函数抛出错误/手动运行行不会

    好的,我正在努力寻找合适的方式来描述我的问题。抱歉,这是一个愚蠢的问题,我仍在学习。 我有一系列小的data.frame,它们的名称定期为“ CountX_YYYY”(X代表特定情况,YYYY代表给定的年份)。我编写了一个函数,该函数首先获取它们的某种类型(X),然后将它们全部绑定并清除id(年份),如下所示: library(dplyr) analysis <- function(case_pattern){ cases <- mget(ls(pattern = case_pattern)) %>...
  • 基于R中多个条件的查找表

    感谢您看我的问题! 对于以下3个任务的患者表现,我有以下(虚拟)数据: patient_df = data.frame(id = seq(1:5), age = c(30,72,46,63,58), education = c(11, 22, 18, 12, 14), task1 = c(21, 28, 20, 24, 22), ...
  • 闪亮导入data.table并对其进行操作

    I am struggling on manipulating a data table that is imported on a shiny app. Particularly I would like to re-order the columns and delete some. I am trying to do this with the data.table package structure. For the re-ordering I am using sortable::rank_lis...
公告

欢迎访问 goshare  点击这里设置您的邮箱  可以接收站内跟帖、回复邮件提醒,不错过任何一条消息。

关注公众号订阅更多技术干货! 码农俱乐部