将地物标签添加到创建echarts图的四分块后,工具提示中的文本将变为未对齐.这似乎是最近才提出的一个问题.

以下是一个没有地物标签的示例,并且工具提示正确呈现:

---
title: "test"
date: "`r Sys.Date()`"
---

```{r}

df <- data.frame(
  group = c("Group A", "Group A", "Group B", "Group B", "Group C", "Group C"),
  category = c("really really long catgegory", "medium category", "short", "really really long catgegory", "medium category", "short"),
  value = c(3, 20, 43, 5, 82, 32)
)

# Create an echarts plot
df |> 
  dplyr::group_by(category) |> 
  echarts4r::e_chart(group) |> 
  echarts4r::e_bar(value, stack = "stacked") |> 
  echarts4r::e_tooltip(trigger = "axis") 


```

enter image description here

以下是一个带有地物标签的示例,该标签会导致工具提示格式发生更改:

---
title: "test"
date: "`r Sys.Date()`"
---

```{r}
#| label: fig-1

df <- data.frame(
  group = c("Group A", "Group A", "Group B", "Group B", "Group C", "Group C"),
  category = c("really really long catgegory", "medium category", "short", "really really long catgegory", "medium category", "short"),
  value = c(3, 20, 43, 5, 82, 32)
)

# Create an echarts plot
df |> 
  dplyr::group_by(category) |> 
  echarts4r::e_chart(group) |> 
  echarts4r::e_bar(value, stack = "stacked") |> 
  echarts4r::e_tooltip(trigger = "axis") 


```

enter image description here

这是四重奏中的一个错误吗?有没有办法确保工具提示文本即使在添加地物标签时也是左对齐的?

推荐答案

问题是与Quarto应用的css有一些冲突.当添加Figure标签时,图表被包装在具有类.quarto-figure-centerdiv中,类.quarto-figure-center具有属性text-align: center.此属性由工具提示继承,因此您将获得居中的工具提示文本.

我不知道处理这件事最好的办法是什么.但对我有效的一个选项是显式设置工具提示的文本对齐方式,这可以通过e_tooltip中的extraCssText选项来实现.

---
title: "test"
date: "`r Sys.Date()`"
---

```{r}
#| label: fig-1

df <- data.frame(
  group = c("Group A", "Group A", "Group B", "Group B", "Group C", "Group C"),
  category = c(
    "really really long catgegory", "medium category",
    "short", "really really long catgegory", "medium category", "short"
  ),
  value = c(3, 20, 43, 5, 82, 32)
)

df |>
  dplyr::group_by(category) |>
  echarts4r::e_chart(group) |>
  echarts4r::e_bar(value, stack = "stacked") |>
  echarts4r::e_tooltip(
    trigger = "axis",
    extraCssText = list("text-align: left;")
  )
```

enter image description here

R相关问答推荐

如何向使用plot_smooths()函数显示的GAM结果图表中添加点?

如何以编程方式将X轴勾号上的希腊符号合并到R图中?

R -模运算后的加法

更改网格的crs以匹配简单要素点对象的crs

使用R中的gt对R中的html rmarkdown文件进行条件格式设置表的单元格

根据收件箱中的特定值提取列名

将年度数据插入月度数据

基于多列将值链接到NA

derrr mutate case_when grepl不能在R中正确返回值

然后根据不同的列值有条件地执行函数

可以替代与NSE一起使用的‘any_of()’吗?

无法正确设置动态创建的Quarto标注的格式

根据列表中项目的名称合并数据框和列表

汇总数据帧中的复制列,保持行的唯一性

如何使用For-R循环在向量中找到一系列数字

如何在反曲线图中更改X标签

仅当后续值与特定值匹配时,才在列中回填Nas

向R中的数据帧添加一列,该列统计另一列中每个唯一值的二进制观测值的数量

访问数据帧中未定义的列时出现R错误

注释不会绘制在所有ggplot2面上