创建R代码来重新创建我在内存中的data.frame或tibble

Question

我正在尝试生成一些创建data.frame(或tibble)的R代码。例如:

library(tidyverse)
example_data <- tibble(`Letter number`=1:10, Letter=letters[1:10])

。无需创建加载的.csv或.rds文件。这是一些培训材料(使用R markdown创建的独立html文件)，人们可以从中复制和粘贴一些代码到他们的R编辑器/RStudio会话。我想提供一个小的示例数据集用于练习。

假设我已经在我的计算机上创建了我想要的数据集(例如，使用tabulizer从pdf中读取表格，各种处理等)，现在想要创建像上面这样的代码，以便能够复制&将此代码粘贴到. rmd中以生成html文件。有没有类似

的东西?

create_code_to_generate_tibble( example_data ) 

将输出第一个代码块(减去库加载)?

Answer 1

也许是这样的?

example_data = structure(list(`Letter number` = 1:10, Letter = c("a", "b", "c", 
"d", "e", "f", "g", "h", "i", "j")), class = c("tbl_df", "tbl", 
"data.frame"), row.names = c(NA, -10L))

> example_data
# A tibble: 10 x 2
`Letter number` Letter
<int> <chr> 
1               1 a     
2               2 b     
3               3 c     
4               4 d     
5               5 e     
6               6 f     
7               7 g     
8               8 h     
9               9 i     
10              10 j   

Answer 2

我认为你是在一个更自动化的方式之后，但是有可能生成一个手动创建的数据框架并填充如下:

# collection of months (initially empty)
months <- data.frame(
start_date = character(),
label = character(),
stringsAsFactors = FALSE
)
# manually add months with start date, and label
# generate these lines from CSV or Excel for example
months[1L, ] <- c("1/Aug/2022", "August 2022")
months[2L, ] <- c("1/Sep/2022", "September 2022")
months[3L, ] <- c("1/Oct/2022", "October 2022")
months[4L, ] <- c("1/Nov/2022", "November 2022")

我发现在这样的行中工作相当线性&很容易解释