Knitr:：kable（）在RMD的某些部分工作，但在其他部分不工作

我正在使用Rmarkdown，希望使用knitr:：kable（）显示表

我有两段代码应该输出一个表。问题是一个人能行，一个人不行。两者都试图输出一个数据帧

这一个有效：

### Payment method comparison
How much invoice and account purchases grew for the switching merchants.

```{r, include = TRUE, echo = FALSE}
leg_growth <- skco.growth(groups = c('Purchase_Country', 'Paymethod'), unit = 'Volume') %>%
  select(Purchase_Country, Paymethod, relative_growth) %>%
  filter(!is.na(relative_growth),
         Paymethod != 'Credit card') %>%
  mutate(relative_growth = to.percent(relative_growth - 1)) 

leg_growth%>%knitr::kable()

```

---

没有可复制的例子，我们怎么知道呢？正如阿克塞曼所说，没有可复制的例子，我们帮不了你。即使制作一个可复制的例子也能帮助你自己发现问题。如果您愿意分享您的原始数据，只需执行

dput（leg\u growth）

并将数据框的结构粘贴到问题中，然后重复

dput（a）

。这将允许我们重新创建您的数据帧，并查看问题所在。这种差异可能是由于

leg\u growth

和

a

之间的差异造成的。你可以打印

str（腿部生长）

和

str（a）

，看看有什么不同。大家好，谢谢你们的回答，我希望你们都能指出我的一些简单疏忽，因此没有包括数据。不过，我现在会把它包括在问题内。

###Number of Brands
This is a similar scatter plot to the previous one but shows merchants grouped by the Industry Segment.
Number of switching merchants included in the sample.

```{r, include = TRUE, echo = FALSE}
a<-switching_data %>%
  group_by(Purchase_Country) %>%
  summarize(nr_brands = n_distinct(Brand_id))

a%>%knitr::kable()
```

> str(a)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   4 obs. of  2 variables:
 $ Purchase_Country: chr  "d" "f" "n" "s"
 $ nr       : int  24 94 140 440
> str(leg_growth)
'data.frame':   8 obs. of  3 variables:
 $ Purchase_Country: chr  "d" "d" "f" "f" ...
 $ method       : Factor w/ 9 levels "A","C",..: 1 7 1 7 1 7 1 7
 $ growth : chr  "55%" "-3%" "18%" "91%" ...