从dataframe列随机抽取一个小测验问题的错误答案，而不是手工完成。
从dataframe列随机抽取一个小测验问题的错误答案，而不是手工完成。
提问于 2022-01-29 17:48:24
我试着用learnr软件包制作一种学习工具。我们有一个问题，一个正确的答案：
我不想每次手工输入错误的答案，而是从dataframe中随机获取错误的答案：
df1 <- tibble(letters = LETTERS, Number = 1:26)对于答案1、2和4，我如何从列Number中随机获取单元格值。正确的答案是答案Nr.3。
在第一步，我尝试使用deparse(substitute(df1[1,2]))而不是1，但失败了。
---
title: "Tutorial"
output: learnr::tutorial
runtime: shiny_prerendered
---
```{r setup, include=FALSE}图书馆(Learnr)
图书馆(Tidyverse)
Knitr：：opts_chunk$set(回声=假)
df1 <- tibble(字母=字母，数字= 1:26)
Question 1:
```{r quiz}这不管用
测验(
问题(“哪个数字有E?"，
answer(deparse(substitute(df1[1,2]))),answer(deparse(substitute(df1[4,2]))),answer(deparse(substitute(df1[5,2])), correct = TRUE),answer(deparse(substitute(df1[8,2])))),
这个可以用
问题(“哪个数字有E?"，
answer("1"),answer("4"),answer("5", correct = TRUE),answer("8"))
)
产出：
回答 1
Stack Overflow用户
回答已采纳
发布于 2022-01-29 18:24:56
我们需要转换为character类
---
title: "Tutorial"
output: learnr::tutorial
runtime: shiny_prerendered
---
```{r setup, include=FALSE}图书馆(Learnr)
图书馆(Dplyr)
Knitr：：opts_chunk$set(回声=假)
df1 <- tibble(字母=字母，数字= 1:26)
Question 1:
```{r quiz}这不管用
测验(
问题(“哪个数字有E?"，
answer(as.character(df1[[2]][1])), answer(as.character(df1[4,2])), answer(as.character(df1[5,2]), correct = TRUE), answer(as.character(df1[8,2])) ),
这个可以用
问题(“哪个数字有E?"，
answer("1"), answer("4"), answer("5", correct = TRUE), answer("8"))
)
-output
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/70908141
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号