- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
理论上这应该可行,因为我已经阅读了 NSE 上的 tidyverse 指南,但它抛出了一个错误,如本例底部所示。为什么是这样?我了解如何对一个对象进行简单的准引用,但我不了解如何评估两个准引用对象的一小部分。有人可以帮忙吗?
tmp <- structure(list(qa11a = structure(c(1616, 7293, 1528, 1219, 2049, 286),
label = "Total voters removed from Nov. 2008 to Nov. 2010",
class = c("labelled","numeric")),
state_abbv = c("AL", "AL", "AL", "AL", "AL", "AL"),
fipscode = c("0100100000", "0100300000", "0100500000",
"0100700000", "0100900000", "0101100000"),
qa1a = structure(c(34727, 114952, 16450, 12239, 31874, 7650),
label = "Total registered & eligible to vote November 2010",
class = c("labelled", "numeric")),
reg.pct = structure(c(0.0465343968669911, 0.0634438722249287,
0.092887537993921, 0.0995996404935044,
0.0642843697057163, 0.0373856209150327),
label = "Total voters removed from Nov. 2008 to Nov. 2010",
class = c("labelled", "numeric")),
precleared = c(1, 1, 1, 1, 1, 1),
year = c(2010, 2010, 2010, 2010, 2010, 2010),
shelby = c(0, 0, 0, 0, 0, 0),
pres = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)),
.Names = c("qa11a", "state_abbv", "fipscode", "qa1a",
"reg.pct", "precleared", "year", "shelby", "pres"),
row.names = c(NA, -6L),
class = c("tbl_df", "tbl", "data.frame"))
require(tidyverse)
require(rlang)
upper="qa11a"
lower="qa1a"
pct.name="rej.reg"
pct.reg <- quo_name(enquo(pct.name))
upper <- enquo(upper)
lower <- enquo(lower)
h <- tmp %>%
mutate(!! pct.reg := (!!upper)/(!!lower))
#> Error in mutate_impl(.data, dots): Evaluation error: non-numeric argument to binary operator.
最佳答案
我们可以将字符串转换为符号然后求值
tmp %>%
mutate(!! pct.name := (!! sym(upper)/(!! sym(lower))))
# A tibble: 6 x 10
# qa11a state_abbv fipscode qa1a reg.pct precleared year shelby pres rej.reg
# <dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <lgl> <dbl>
#1 1616 AL 0100100000 34727 0.0465 1.00 2010 0 F 0.0465
#2 7293 AL 0100300000 114952 0.0634 1.00 2010 0 F 0.0634
#3 1528 AL 0100500000 16450 0.0929 1.00 2010 0 F 0.0929
#4 1219 AL 0100700000 12239 0.0996 1.00 2010 0 F 0.0996
#5 2049 AL 0100900000 31874 0.0643 1.00 2010 0 F 0.0643
#6 286 AL 0101100000 7650 0.0374 1.00 2010 0 F 0.0374
当我们在字符串上应用 enquo
时,它会转换为带引号的 quosure
enquo(upper)
# <quosure>
# expr: ^"qa11a"
# env: empty
与其从字符串转换,不如这样做更容易
upper <- quo(qalla)
lower <- quo(qala)
在 OP 的代码中,调用 enquo
即在字符串对象上转换为 quosure 将导致字符串 quosure 而这不是预期的
upper <- "qa11a"
lower <- "qa1a"
enquo(upper)
#<quosure>
# expr: ^"qa11a"
# env: empty
我们可以比较一下
upper <- quo(qa11a)
lower <- quo(qa1a)
upper
# <quosure>
# expr: ^qalla
# env: global
并执行它
tmp %>%
mutate(!! pct.name := (!! upper)/ (!! lower))
# A tibble: 6 x 10
# qa11a state_abbv fipscode qa1a reg.pct precleared year shelby pres rej.reg
# <dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <lgl> <dbl>
#1 1616 AL 0100100000 34727 0.0465 1.00 2010 0 F 0.0465
#2 7293 AL 0100300000 114952 0.0634 1.00 2010 0 F 0.0634
#3 1528 AL 0100500000 16450 0.0929 1.00 2010 0 F 0.0929
#4 1219 AL 0100700000 12239 0.0996 1.00 2010 0 F 0.0996
#5 2049 AL 0100900000 31874 0.0643 1.00 2010 0 F 0.0643
#6 286 AL 0101100000 7650 0.0374 1.00 2010 0 F 0.0374
关于r - dplyr::mutate 中的非标准评估,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49882794/
我在 Nuxt 项目旁边使用 Firebase,在下面的插件中,我调用 onAuthStateChanged 来检查用户是否已经登录,如果他是,我设置用户状态并将他重定向到仪表板如下: import
这两个代码块都可以工作,即使它们使用不同的等号,一个使用 :=,另一个使用 =。哪个是正确的,为什么?我认为 tidyeval 在使用 dplyr 函数时需要 := ,但奇怪的是 = 在我的 muta
下午好! 我做了一些快速搜索,我很难弄清楚我应该如何去做我需要做的事情。 对于这个程序,我们正在创建一个基本的工作票类。每个属性都有自己的修改器和访问器,但除此之外还有一个修改器将所有属性作为参数并一
所以我有一个名为 VIP 的模型,其中包含大量相关信息。因此,当我们转到路线 vip/{id} 时,我会返回大部分信息。但是,当我转到 vips/{per-page} 时,我不想返回所有数据,因为 A
我有一个电子应用程序,它使用 mysql 包直接连接到我的数据库。我想做的是将使用 mysql.createConnection() 创建的 connection 对象存储在 Vuex 状态中。然后我
假设我有一个 Image 类,我想提供一些图像操作,比如缩放、旋转等。我想为每个操作提供两种类型的功能。一种修改对象,另一种不修改。在 Ruby 中,有些函数以 !并指出这个将修改参数。 因为这在 C
以下代码利用 DOM 突变事件 DOMNodeInserted检测 body 的存在元素并包裹它的 innerHTML放入 wrapper 中。 functi
我正在尝试从 Firestore 初始化我的 Vuex 商店。最后一行代码 context.commit('SET_ACTIVITIES', acts) 是产生错误的原因。我不认为我在直接改变状态,因
所以基本上我已经阅读了相当多的教程、演示和 API 规范本身,但并没有深入了解,非常感谢你们的帮助。 我最近一直在努力更好地掌握 IndexedDB,但遇到了一些问题,希望对这段代码提出一些批评/反馈
我有这个简单的示例代码: var request = mozIndexedDB.open('MyTestDatabase'); request.onsuccess = function(event){
我定义了一个 Vuex 存储( Action 、状态、突变和 getter) 当我在突变中向状态数组添加新的待办事项时,出现以下错误:错误:[vuex] 不要在突变处理程序之外改变 vuex 存储状态
事前:我的应用程序按预期工作,但我想知道是否有更好的方法来解决我遇到的问题。 情况:我有一个项目,目前正在实现权限系统。当前的流程是加载特定对象(在本例中让我们采用 user),然后注入(inject
这段代码 extension Collection { mutating func f() { removeFirst() } } 处理错误 cannot use mutating m
我们在 R 中有以下数据框 # Create example dataframe df % dplyr::mutate(col1A = ifelse(gp == 0, col1B, col1A))
在我的 NUXT 应用程序中,我正在使用 vuex 存储模块!当我运行应用程序并调用时 this.$store.dispatch('userStore/setLoggedInUser',current
所以我有这个数据集 # A tibble: 268 x 1 `Which of these social media platforms do you have an account in ri
转载请注明出处: 在 Vuex 中 store 数据改变的唯一方法就是提交 mutations 。 mutations 里面装着一些改变数据方法的集合,这是Vuex 设
我想用不同的变量多次调用一个函数,每次都为数据框中的一个新变量设置一个值。这是我失败的尝试。感谢您的帮助! dat % mutate({{var3}} := ifelse({{var1}} >
改变列表的正确方法是什么?在这种特定情况下,列表由 split 返回。 library(dplyr) csv%split(.,.$participant_number)%>%mutate(.,var(
在某些语言中比其他语言更难(或不可能)实现变异测试吗?例如,是否可以在功能编程语言中实现变异测试? 最佳答案 我看不出任何语言都无法做到的任何理由。 我当然不是专家,但是我认为使用功能语言进行突变测试
我是一名优秀的程序员,十分优秀!