程序员经验分享-hwhale

为什么内部调用内的 lapply 与内部调用内的变量赋值不同？

2024-01-03

考虑：

notBroken<-within(mtcars, {
  gear<-as.factor(gear)
  cyl<-as.factor(cyl)})
str(notBroken)

我们的输出，

> str(notBroken)
'data.frame':   32 obs. of  11 variables:
 $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
 $ cyl : Factor w/ 3 levels "4","6","8": 2 2 1 2 3 2 3 1 1 2 ...
 $ disp: num  160 160 108 258 360 ...
 $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
 $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
 $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
 $ qsec: num  16.5 17 18.6 19.4 17 ...
 $ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
 $ am  : num  1 1 1 0 0 0 0 0 0 0 ...
 $ gear: Factor w/ 3 levels "3","4","5": 2 2 2 1 1 1 1 2 2 2 ...
 $ carb: num  4 4 1 1 2 1 4 2 2 4 ...

表明cyl and gear已成为所需的因素。然而，这：

broken<-within(mtcars,lapply(list(gear,cyl),as.factor))
str(broken)

不做同样的事情。

> str(broken)
'data.frame':   32 obs. of  11 variables:
 $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
 $ cyl : num  6 6 4 6 8 6 8 4 4 6 ...
 $ disp: num  160 160 108 258 360 ...
 $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
 $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
 $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
 $ qsec: num  16.5 17 18.6 19.4 17 ...
 $ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
 $ am  : num  1 1 1 0 0 0 0 0 0 0 ...
 $ gear: num  4 4 4 3 3 3 3 4 4 4 ...
 $ carb: num  4 4 1 1 2 1 4 2 2 4 ...

Why?

我怀疑这可能与如何with(mtcars,gear)表明within treats gear like mtcars$gear并不是mtcars["gear"]，但这不是完整的答案。我试图以这种方式做的事情可能吗？


这是因为lapply()不将输出分配给变量gear and cyl of broken（例如，没有发生任何变化broken).

broken<-within(mtcars, gear <- unlist(lapply(list(gear), as.factor)))
str(broken)
'data.frame':   32 obs. of  11 variables:
 $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
 $ cyl : num  6 6 4 6 8 6 8 4 4 6 ...
 $ disp: num  160 160 108 258 360 ...
 $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
 $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
 $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
 $ qsec: num  16.5 17 18.6 19.4 17 ...
 $ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
 $ am  : num  1 1 1 0 0 0 0 0 0 0 ...
 $ gear: Factor w/ 3 levels "3","4","5": 2 2 2 1 1 1 1 2 2 2 ...
 $ carb: num  4 4 1 1 2 1 4 2 2 4 ...

相比with:

x <- with(mtcars, lapply(list(gear, cyl), as.factor))
str(x)
List of 2
 $ : Factor w/ 3 levels "3","4","5": 2 2 2 1 1 1 1 2 2 2 ...
 $ : Factor w/ 3 levels "4","6","8": 2 2 1 2 3 2 3 1 1 2 ...
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

r

withstatement

rfactor

为什么内部调用内的 lapply 与内部调用内的变量赋值不同？ 的相关文章

  • 使用 R 从字符串中提取函数参数

    最好使用stringr包 我想创建一个函数extract 以字符串向量作为参数 vec lt c div span icon hospital user i18n t Enrolments or i18n t Paper a string

  • 在 R Shiny 中，如何使用可排序 js 将其在列表中出现的顺序次数附加到每个列表元素？

    下面的可重现代码适用于将元素从一个面板拖动到另一个面板 并在 拖动到 面板中自动使用 HTML CSS 对拖入的每个元素进行排名顺序编号 但是 我现在尝试附加到每个 拖动到 列表元素的末尾 使用某种形式的paste0 我假设 该元素在 拖至

  • 编写健壮的 R 代码：命名空间、屏蔽和使用 `::` 运算符

    简洁版本 对于那些不想阅读我的 案例 的人来说 这就是本质 最小化新包破坏现有代码 即编写您编写的代码 的机会的推荐方法是什么尽可能坚固 充分利用该功能的推荐方法是什么 命名空间机制 when a just using贡献的软件包 比如在一

  • Shiny可以识别用鼠标选择的文本（突出显示的文本）吗？

    我需要用户将文本片段分配给 Shiny 中的类别或 代码 基本上 我希望用户突出显示输出中的文本 在下面的示例中 来自table or text输出 然后按一个按钮 code 并将选定的文本分配给应用程序内的对象 在下面的应用程序中 所选文

  • kmeans 对分组数据进行聚类

    目前 我尝试在分组数据中找到簇的中心 通过使用示例数据集和问题定义 我能够创建kmeans每个组内的集群 然而 当涉及到给定组的集群的每个中心时 我不知道如何获取它们 https rdrr io cran broom man kmeans

  • warnings() 在函数内不起作用？如何解决这个问题？

    op lt options warn 0 although doesn t work for any value of warn assign last warning NULL envir baseenv thisDoesntWork l

  • 在 mutate 和 across 之后使用 ~separate

    目的是将所有物种 setosa 行转换为一行 setosa 这是一个最小的示例 实际上有更多列和更多组 我有这个数据框 head iris 2 gt select 1 2 5 gt group by Species Sepal Length

  • 使用管道语法处理模型列表

    我经常喜欢拟合和检查与 R 数据框中的两个变量相关的多个模型 我可以使用如下语法来做到这一点 require tidyverse require broom models lt list hp exp cyl hp cyl map df m

  • 连接多个用户的 R 闪亮会话

    最小可重现示例 library shiny ui lt fluidPage actionButton button1 Run 1 actionButton button2 Run 2 server lt function session i

  • 从向量中删除元素在 R 中出现的时间量

    我想从一个向量中删除元素在另一个向量中出现的时间 就像我要减去它们一样 鉴于我想要删除的元素向量中的每个元素也存在于我想要从中删除的主向量中 a lt c A B B C C C b lt c A B C C a a in b return

  • 将 RDS 文件从网络（即 URL）直接加载到 R 中？

    read csv 具有直接从 url 读取的出色能力 readRDS 才不是 我想将 RDS 文件从 Internet 移动到我的 R 环境 我看到有几种方法 Method 1 此方法会用下载的文件弄乱工作目录 myurl lt https

  • R：根据元素长度从向量中删除元素

    如何根据字符串的字符数或长度从字符串向量中删除元素 df lt c asdf fweafewwf af aewfawefwef awefWEfawefawef gt df 1 asdf fweafewwf af aewfawefwef aw

  • Django 中的 Rpy2 错误 - 未为“”类型的对象定义转换“py2rpy”

    我以前从未使用过 R 并且正在尝试使用 rpy2 从 python 调用 R 函数 它可以在独立的 python 终端上运行 但不能在 Django 中运行 但rpy2似乎无法将python字符串转换为r对象 我正在使用同事提供的自定义库

  • rpart是自动剪枝吗？

    Is rpart自动修剪 生成的决策树rpart比具有自动修剪功能的 Oracle Data Mining 生成的级别要多得多 否 但拟合函数的默认值可能会 提前 停止分割 对于 早期 的某些定义 See rpart control对于您可

  • 在 Shiny 中叠加两个 ggplot

    我有一个非常大的数据集 我正在使用 ggplot 在 Shiny 上绘制它 我有一个与 x 轴上的值相关联的滑块 我想用它对选定的数据子集重新着色 并让其余数据保持原样 最简单的选择是重新创建整个绘图 但由于它是一个大型数据集 因此这是一个

  • 为每个因素级别添加日期时间序列

    我有一个带有因子列的数据框 s lt data frame id 901 910 s id lt as factor s id 我有一个日期时间序列 library lubridate start lt now as difftime 2

  • 如何在基数 R 中进行分组

    我想使用以下 SQL 查询来表达base R 没有任何特定的包 select month day count as count avg dep delay as avg delay from flights group by month d

  • 空间数据xyz到矩阵

    我有一个大数据框 100 000 行 其中包含 LON LAT VALUE 我想将其转换为矩阵 EPSG 中的坐标 3035 我使用以下命令尝试了 reshape2 包 acast df lon lat value var value 效果

  • R Leaflet Legend：colorBin-删除中断之间的小数

    我正在使用 Leaflet 库在 R 中创建交互式 HTML 地图 传说中采用的是colorBin用于创建将数据分为 6 个类别的方法 使用min values and max values 我已经定义了美国社区调查收入数据的特定范围可能落

  • 通过 R 中的数据子集执行计算

    我想对数据框的 PERMNO 列中的每个公司编号进行计算 其摘要可以在此处查看 gt summary companydataRETS PERMNO RET Min 10000 Min 0 971698 1st Qu 32716 1st Qu

随机推荐

  • 使用新的 sdk 在我的 Facebook 墙上发布

    我正在使用新的 Facebook SDK 通过以下方式在我的墙上发布他们的指示 http developers facebook com docs howtos publish to feed ios sdk 我从应用程序获得了授权 但是当

  • VB.Net 替换大型文本文件中的特定值

    我有一些大型 csv 文件 每个 1 5gb 我需要在其中替换特定值 我目前使用的方法非常慢 我相当确定应该有一种方法可以加快速度 但我只是没有足够的经验来知道我应该做什么 这是我的第一篇文章 我尝试搜索相关内容 但没有找到任何内容 任何帮

  • 在 JavaScript 中将 uint8array 转换为 double

    我有一个数组缓冲区 我想获取双精度值 例如 从 64 124 12 0 0 0 0 0 我会得到 641 5 有任何想法吗 你可以适应优秀的answer https stackoverflow com a 40970862 1447675

  • Unity 的免费版本是否带有完整的源代码？

    我正在考虑使用 Unity 的免费版本 有谁知道它是否带有完整的源代码 另外 许可证是什么样的 与扭矩引擎相比有多灵活 Unity 不附带完整源代码 您可以请求源许可证 但我相信价格是协商好的 请参阅页面底部 https store uni

  • 当 Activity onDestroy 调用时 Android onCreate 服务被调用

    我有一项启动服务的活动 如果我退出到主屏幕 然后从最近的应用程序列表中手动关闭活动 则服务中会再次调用 onCreate 因此 当 Activity 被销毁时 onCreate 会再次被调用 即使在 Activity 中调用 onDestr

  • 在 Word 中引用 Excel 单元格

    有谁知道用于直接在 Word 文档中引用 Excel 单元格的预打包解决方案 例如 TestExcel Tab1 A1 亲爱的 TestExcel Tab1 A2 先生 我们的系统已提醒我们您的帐户 TestExcel Tab1 Accou

  • 使用 simctl 运行 XCTest 包

    我有一个 XCTest 包 我可以使用它在模拟器上通过 xcode 运行simctl 我使用的是 iPhone 6 iOS 9 1 模拟器 环境变量如下 export SIMCTL CHILD TestBundleLocation User

  • Knockout - 被点击的元素

    我有以下标记 fieldset div div fieldset

  • 如何将两个整数相除以获得双精度数？

    如何将两个整数相除以获得双精度数 您想要投射数字 double num3 double num1 double num2 注意 如果 C 中的任何参数是double a double使用除法 结果是double 因此 以下内容也可以工作 d

  • Python将变量视为文字/原始字符串[关闭]

    Closed 这个问题不符合堆栈溢出指南 help closed questions 目前不接受答案 我不敢相信治疗如此困难variable as a 原始字符串 我搜索并发现了类似的问题 但没有正确的答案 我有一个带有存储域名的变量 do

  • GMA 500 集成显卡上的 WPF 性能缓慢

    我的团队正在开发要部署在 Intel Atom Z530 上网本硬件平台上的 WPF 应用程序 Intel Atom Z530 配备 Intel GMA 500 集成显卡 具有 PowerVR SGX 535 GPU 核心 PowerVR

  • 射线与平面的交点坐标

    我有一条射线和一架飞机 射线与平面相交 我想知道在哪里 如何获得该交点的世界坐标 我的特殊情况是 我将屏幕坐标取消投影到相机并创建光线 该平面是场景的地面 var vector new THREE Vector3 mousePosition

  • 如何在不刷新整个页面的情况下让 Grunt/Watch/LiveReload 重新加载 Sass/CSS？

    到目前为止 我已经让一切按照我想要的方式工作 即监视我想要的所有文件并在发生更改时刷新 除了我希望能够对 Sass CSS 进行修改并刷新它在没有页面加载的浏览器中 这不是什么大问题 但有时我会在进行一些页面交互后尝试修改某些内容的样式 并

  • 使用“data.table”根据变量获取子组的第一个

    考虑一个由分组变量组成的数据集 这里id 和一个有序变量 这里date df lt data frame id rep 1 2 2 date 4 1 id date 1 1 4 2 2 3 3 1 2 4 2 1 我想知道最简单的方法是什么

  • iPhone Web App - 在 iOS8 中停止身体弹跳/滚动

    是的 我知道 这个问题之前已经被问过一千次了 感谢你们所有人 我终于找到了一个解决方案 最终在 更新到 iOS 8 后 似乎没有任何效果 iOS7 中最适合我的是什么 Css html body scrollable overflow au

  • mysql中选择部分表列数据

    我有一个包含 2000 个条目的 照片 表 该表有一列名为photo note其中包含以下格式但具有不同放大值的数据 Magnification 30x The resolution varies depending on 我需要选择以 分

  • CTE（通用表表达式）与临时表或表变量，哪个更快？

    CTE 通用表表达式 与Temp tables or Table variables 哪个更快 正如我在评论中已经说过的 这取决于 它确实取决于您的查询 您的数据 有多少 它是什么类型 等等 不过 需要记住一些要点 CTE 是仅对下一条语句

  • 编译 jitsi 项目时，转换为 Dalvik 格式失败，出现错误 1

    我正在尝试编译并运行该项目https github com jitsi jitsi android https github com jitsi jitsi android在 Eclipse 上通过导入 我已成功导入项目 添加了外部 Jar

  • Shopify 结账中的脚本标签

    我正在考虑为 Shopify 开发一款应用程序 该应用程序将为商店的结帐页面添加功能 如果用户不必将代码复制并粘贴到文件中 那将是理想的选择 因此我正在考虑使用 ScriptTag API http api shopify com scri

  • 为什么内部调用内的 lapply 与内部调用内的变量赋值不同？

    考虑 notBroken lt within mtcars gear lt as factor gear cyl lt as factor cyl str notBroken 我们的输出 gt str notBroken data fram

热门标签