程序员经验分享-hwhale

如何删除总和为 0 的列和行，同时保留非数字列

2023-12-05

以下是我的数据的一个子集。我正在尝试删除总和为 0 的列和行...问题是我想在结果输出中保留第 1 至 8 列。有任何想法吗？我已经尝试了好几个了。一个整洁的解决方案将是最好的。

Site    Date    Mon Day Yr          Szn SznYr       A   B   C   D   E   F   G
B0001   7/29/97 7   29  1997    Summer  1997-Summer 0   0   0   0   0   0   0
B0001   7/29/97 7   29  1997    Summer  1997-Summer 0   0   1   0   0   0   0
B0001   7/29/97 7   29  1997    Summer  1997-Summer 0   0   0   3   0   0   0
B0001   7/29/97 7   29  1997    Summer  1997-Summer 0   0   0   0   0   0   10
B0002   7/28/97 7   28  1997    Summer  1997-Summer 0   0   0   0   5   0   0
B0002   7/28/97 7   28  1997    Summer  1997-Summer 0   0   0   0   0   0   0
B0002   7/28/97 7   28  1997    Summer  1997-Summer 0   0   0   0   0   6   0
B0002   7/28/97 7   28  1997    Summer  1997-Summer 0   0   0   0   0   0   0
B0002   7/28/97 7   28  1997    Summer  1997-Summer 0   0   0   0   0   0   0
B0002   7/28/97 7   28  1997    Summer  1997-Summer 0   0   0   0   0   0   8
B0002   6/28/07 6   28  2007    Summer  2007-Summer 0   3   6   1   7   0   1

尝试这个：

# remove rows 
df <- df[rowSums(df[-(1:7)]) !=0, ]
# remove columns    
df <- df[c(1:7,7 + which(colSums(df[-(1:7)]) !=0))]
#     Site    Date Mon Day   Yr    Szn       SznYr B C D E F  G
# 2  B0001 7/29/97   7  29 1997 Summer 1997-Summer 0 1 0 0 0  0
# 3  B0001 7/29/97   7  29 1997 Summer 1997-Summer 0 0 3 0 0  0
# 4  B0001 7/29/97   7  29 1997 Summer 1997-Summer 0 0 0 0 0 10
# 5  B0002 7/28/97   7  28 1997 Summer 1997-Summer 0 0 0 5 0  0
# 7  B0002 7/28/97   7  28 1997 Summer 1997-Summer 0 0 0 0 6  0
# 10 B0002 7/28/97   7  28 1997 Summer 1997-Summer 0 0 0 0 0  8
# 11 B0002 6/28/07   6  28 2007 Summer 2007-Summer 3 6 1 7 0  1

您可以一步完成此操作，以获得与 @dan-y 相同的输出（在这种特定情况下相同，但如果实际数据中有负值则不同）：

    df <- df[rowSums(df[-(1:7)]) !=0,
             c(1:7,7 + which(colSums(df[-(1:7)]) !=0))]
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

r

dplyr

datamanipulation

如何删除总和为 0 的列和行，同时保留非数字列 的相关文章

  • 将值添加到 R 中 for 循环内的向量

    我刚刚开始学习 R 我编写了这段代码来学习函数和循环 squared lt function x m lt c for i in 1 x y lt i i c m y return m squared 5 NULL 为什么这个返回NULL

  • R、GeoJSON 和 Leaflet

    我最近从 R Bloggers com 的帖子中了解了 leafletjs com 我想要实现的一个此类教程是使用传单创建交互式分区统计图 http leafletjs com examples choropleth html http l

  • 将线条剪裁到绘图区域并在绘图区域外显示文本

    我想限制绘图的可见 y 范围 为了保留超出此范围的值 我需要设置oob 出界 to rescale none这效果很好 不过 我还想在图外的页边空白处添加一些文本 为了做到这一点 我需要关闭剪辑 这会导致超出范围的值被绘制在绘图区域之外的边

  • 为 PDF 输出添加 natbib 选项

    有没有办法指定natibib输出 PDF 时的选项bookdown 我希望 tex 输出具有命令 usepackage sort compress natbib 但似乎没有任何方法可以在 YAML 中指定它 我无法将命令添加到我的序言中 因

  • 有没有办法将字母扩展到超过 26 个字符，例如 AA、AB、AC...？

    我大部分时间都使用字母来表示我的因素 但今天我尝试超过 26 个字符 LETTERS 1 32 期待有自动递归因式分解 AA AB AC 但很失望 这只是字母的限制还是有办法使用其他函数来获取我正在寻找的内容 702够吗 LETTERS70

  • 匹配向量内的向量

    I have vec1 lt c 0 0 0 1 1 0 1 1 1 0 0 1 vec2 lt c 1 1 我预计 magicFUN x vec1 y vec2 1 4 7 8 这意味着我想要一个完整向量在另一个向量内的位置 match

  • 如何规划庭院灯最有效的路线

    我正在尝试挂一些庭院灯 基于另一个问题 https cs stackexchange com questions 80134 christmas light route efficiency我问 我意识到我需要一种算法来解决路由检查问题 h

  • R 在 Ubuntu 中通过代理连接

    我在 Ubuntu 12 04 上安装了 RStudio 0 97 168 当我尝试安装 gstat 库时出现以下错误 install packages gstat dependencies TRUE Warning in install

  • corr.test 与 cor.test p 值

    我正在尝试使用 psych 包 psych 1 6 9 中的 corr test 但在使用 method spearman 时 它似乎给出了与 cor test 不同的 p 值 相关系数相同 但 p 值不同 我整理了一些示例代码和输出 如下

  • 使用 roxygen2 记录数据集

    我正在尝试使用 roxygen2 记录 R 包中的一些数据集 仅考虑其中之一 I have mypkg data CpG human GRCh37 RDa 其中包含一个名为的对象CpG human GRCh37 和一个名为 mypkg R

  • 没有垂直线的直方图

    当我创建直方图时 它看起来很像这样 set seed 1 x lt 1 100 y lt x rnorm 50 y round y hist y Is there a way to make a histogram look a bit l

  • 如何在闪亮的应用程序中显示矩阵，并用条件指定颜色？

    我有一个具有正值和负值的矩阵 M 我正在尝试使用 DT 包在闪亮的应用程序中显示为表格 我想用不同的颜色显示矩阵 红色的正数和负数 例如 到目前为止 我只能以一对一的方式添加颜色 但我想以这种方式添加颜色 如果matrix values g

  • 将 R 传单地图保存为 html：不包括图块

    我正在尝试使用 saveWidget 或将 rmd 文件输出到 html 来保存 R 传单地图 如下所述 将传单输出保存为 html https stackoverflow com questions 30110377 saving lea

  • Rblpapi - 将 bdp 与 ISIN / Cusip 一起使用会出现错误

    当我将 bdp 与 ISIN 或 CUSIP 一起使用时 出现以下错误 bdp US25470XAB10 ISIN ULT PARENT TICKER EXCHANGE bdp 25470XAB1 CUSIP ULT PARENT TICK

  • R 中整数向量的大小

    我原以为 R 有一个用于存储对象的标准开销 看起来是 24 字节 至少对于整数向量而言 但一个简单的测试表明它比我意识到的要复杂 例如 采用长度为 100 的整数向量 使用随机采样 希望避免任何可能存在的偷偷摸摸的序列压缩技巧 https

  • 将英寸高度的字符向量转换为厘米？

    我得到一个字符向量 tibble H c 6 2 5 10 5 5 5 1 5 5 5 4 我想将其转换为厘米 请告知我该怎么做 有几种方法可以使用 1 阅读与fread粘贴到单个字符串后 library data table fread

  • 在R中提取其他两个字符串之间的字符串

    我试图找到一种简单的方法来提取出现在两个已知子字符串之间的未知子字符串 可以是任何内容 例如 我有一个字符串 a lt anything goes here STR1 GET ME STR2 anything goes here 我需要提取

  • 在ggplot2中添加水平线到绘图和图例

    这段代码创建了一个漂亮的图 但我想在 y 50 处添加一条水平黑线 并让图例显示一条黑线 并在图例中显示文本 cutoff 但在图例中保留源点 我可以使用 geom line 添加该行 但无法在图例中获取该行 library ggplot2

  • 使用 ggplot2 在一张画布上绘制多个图形[重复]

    这个问题在这里已经有答案了 我正在尝试根据此表将两个 ggplot2 图合并为一个图 Type RatingA RatingB 1 One 3 36 2 Two 5 53 3 One 5 57 4 One 7 74 5 Three 4 38

  • 用于检查和批量线性模型的数据表选项

    我想知道是否有data table用于从数据集中批量处理线性模型并首先进行检查的选项 我需要对每个唯一标识符运行一堆线性模型 但首先我需要进行检查 对于每个唯一的 id 和年份 我需要检查是否有至少 24 个月的先前每月数据 但不超过 60

随机推荐

  • 在 MS Access 中以编程方式创建 ODBC 连接和链接表

    我们使用 MS Access 作为 Oracle 的报告前端 数据通过ODBC连接访问 Access to Oracle中有两个链接表 即原始数据表 我希望能够设置连接并链接 Access 文件中的表 这样用户就不必担心为 ODBC 连接设

  • 使用 PHP 从 XML 中的节点内部获取数据

    所以我不确定什么或如何真正描述我需要什么 但希望有人会理解 整个 xml 文件的单个元素如下所示 for counter 1 counter load file xml make sure path is correct note objD

  • 重写父类的函数[重复]

    这个问题在这里已经有答案了 class classa public virtual void foo class classb public classa public virtual void foo override void clas

  • 如何获取窗口大小调整后的高度和宽度

    我有一个 scorm 模块 它在新窗口中启动 并在我的 js 文件中的 window open 中设置 ressized 1 function OpenScormModuleWindow scormModuleId scormModuleU

  • .htaccess 将所有带有数据的 POST 请求重定向到文件

    我有一个 htaccess文件位于子文件夹 www domain com API 中 我需要将此子文件夹的所有 POST 请求重定向到子文件夹中的文件 www domain com API Sub manager php 我必须说所有 PO

  • INotifyDataErrorInfo.GetErrors(null) 是否应该返回所有错误？ [关闭]

    很难说出这里问的是什么 这个问题模棱两可 含糊不清 不完整 过于宽泛或言辞激烈 无法以目前的形式合理回答 如需帮助澄清此问题以便重新打开 访问帮助中心 INotifyDataErrorInfo GetErrors null 是否应该返回所有

  • UITextView 的标题视图？

    我想在 UITextView 的顶部有一个自定义视图 该视图将与文本视图一起滚动 因此仅当文本视图滚动到最顶部时它才可见 这可以做到吗 我在想 因为它是 UIScrollView 的子类 所以可能可以做一些事情 Thanks 您是否尝试过更

  • Android - 使用 LinearLayout 检查 RadioGroup 中的 RadioButton ID

    有什么可能的方法来获得选择radio button在这个布局中 因为rg getCheckedRadioButtonId 不在此布局上工作 我无法得到我的每一个radiobuttons ID 这就像我的全部radio button不在我的范

  • 从 Jenkins 运行时，浏览器自动化（使用 Webdriver ）作为进程运行，但不可见

    细节 使用Webdriver和TestNG开发测试自动化框架 使用 ANT 作为触发工具来驱动浏览器自动化 这工作正常 我可以看到浏览器打开并查看所有导航 在本地设置 Jenkins 并配置为调用 ANT 单击作业中的 立即构建 链接 浏览

  • 同时合并列表中的多个 data.frames

    我有一个要合并的许多 data frames 的列表 这里的问题是每个 data frame 的行数和列数都不同 但它们都共享关键变量 我称之为 var1 and var2 在下面的代码中 如果 data frames 在列方面相同 我只能

  • Opengl 和 Webgl：从附加到当前帧缓冲区的纹理中采样

    我有一个带有两个纹理的帧缓冲区t0 and t1随附的 在第一遍中 我使用多个片段着色器输出渲染它们 在第二遍之前 我执行以下操作 打开仅具有一个输出的着色器 Bind t1到纹理单元 调用 glDrawBuffers 禁用写入t1的附件

  • AngularJS：指令和范围

    我有一个简单的问题 我认为有一个非常简单的解决方案 但不知何故我错过了它 我正在为我的应用程序设置一个简单的指令 我将范围属性设置为默认值 false 因为我希望它共享我的控制器的范围 问题是 我似乎无法访问该范围 在我的链接功能中 我可以

  • Cassandra 分页：如何使用 get_slice 使用 cql 库从 Python 查询 Cassandra 1.2 数据库

    我有一个 Cassandra 1 2 集群 我使用 cql 库从 Python 中使用它 现在我需要使用 get slice 实现一些看起来非常简单的分页功能 但我找不到任何有关如何使用 cql 库中的类似功能的文档 get slice k

  • 如何在 SVG 1.1 中正确显示多行文本？

    我想获取多行文本块并将其显示在 SVG 中 我想保持线条不变 有没有正确的方法来做到这一点 我使用 Inkscape 进行基础绘图 使用 Batik 进行渲染 看来两人对于如何做到这一点并没有达成一致 Inkscape 正在创建这样的结构

  • Android Widget 不会有点击

    基本上我有这个小部件 单击它后应该显示一个Toast public class WidgetActivity extends AppWidgetProvider Override public void onUpdate Context c

  • SQL Server 2005/2008 上的默认表锁定提示

    如何查找默认的全局表锁定提示 问题 是否有任何 DMV DMF 动态管理视图 函数 返回此类信息 另外 有没有办法更改默认的锁定提示 目前我正在添加nolock几乎到处都有提示以防止锁定 我想通过将默认锁定提示更改为来避免这样做nolock

  • 从 HTML 页面连接到 Coldfusion Websocket

    我想打开一个到 ColdFusion 2016 服务器的 Web 套接字 但我想从 HTML 页面 而不是 cfm 打开它 所以我没有使用 cfwebsocket 标签的选项 我想要的是它的替代品 我尝试过以下代码 var webSocke

  • JQuery Mobile 通过 AJAX 更新表和列切换停止工作

    我正在使用 JQM 1 4 2 创建一个小型应用程序 但遇到一个问题 即我正在使用 ajax 更新表而无需刷新页面 这效果很好 我的表 整个表 已更新 但更新后data mode columntoggle 不再起作用 该按钮在那里 但您为显

  • 如何在 C# 中使用 aws sdk 检索 aws-ec2 Windows 实例密码

    我在用aws sdk从中检索云数据aws sdk 我得到了所有ec2相关数据 但我无法找到如何连接实例 以下是从亚马逊云检索实例的代码 IAmazonEC2 ec2Client new AmazonEC2Client accesskey s

  • 如何删除总和为 0 的列和行，同时保留非数字列

    以下是我的数据的一个子集 我正在尝试删除总和为 0 的列和行 问题是我想在结果输出中保留第 1 至 8 列 有任何想法吗 我已经尝试了好几个了 一个整洁的解决方案将是最好的 Site Date Mon Day Yr Szn SznYr A

热门标签