R markdown:将数据框中的值报告为文本

R markdown: report values from dataframe as text

使用修改后的 mtcars 数据集,我尝试在编织一个 Rmd 文件到 html 后得到这个输出:

"数据库由5款车型组成(Mazda RX4 (mpg=21.0), Mazda RX4 Wag (mpg=21.0), Datsun 710 (mpg=22.8), Hornet 4 Drive (mpg=21.4), Hornet Sportabout (mpg=18.7)."

到目前为止我取得的成就:

“该数据库包含 5 款车型(Mazda RX4、Mazda RX4 Wag、Datsun 710、Hornet 4 Drive 和 Hornet Sportabout)。”

有没有办法将数据帧的每个 mpg 放入 car inline 模型中?谢谢!

我的 Rmd 文件:

YAML

---
title: "test"
author: "TJ"
date: "27 12 2020"
output: html_document
---

区块 1

{r setup, include = TRUE}
knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
library(glue)

区块 2

{r cars}
df <- mtcars %>% 
  mutate(car=rownames(mtcars),
         id = row_number()
         ) %>% 
  filter(id <= 5) %>% 
  select(car, mpg)

# count of cars
n_cars <- length(df)

# mpg of cars
mpg_cars <- df$car %>% 
  glue_collapse(sep = ", ", last = ", and ")

内联

The database consists of `r nrow(df)` car models (`r mpg_cars`).

抱歉删除了这么多次,我正在努力获得最好的代码 这是代码

datasets::mtcars
cars<-mtcars
cars$make<- row.names(cars)
cars$mpg_1<-as.character(cars$mpg)
cars$x=paste(cars$make,cars$mpg_1,sep = ",")
View(cars)