如何解决Rmarkdown table latex 有希腊文和英文两个字
这张桌子上有希腊语和英语单词
---
output:
bookdown::pdf_document2:
number_sections: true
toc: yes
header-includes:
- \usepackage{titling}
- \usepackage{amssymb}
- \usepackage{dcolumn}
- \usepackage[utf8]{inputenc}
- \usepackage[english,greek]{babel}
- \newcommand{\en}[1]{{\selectlanguage{english}#1}}
- \newcommand{\gr}[1]{{\selectlanguage{greek}#1}}
- \usepackage[useregional]{datetime2}
- \usepackage{float}
- \usepackage{colortbl}
---
---
title: \gr{ΤΕΣΤ}
subtitle: \en{TEST}
date: \today
---
```{r warning=FALSE,include=FALSE}
Sys.setlocale("LC_CTYPE","Greek")
```
```{r warning=FALSE,include=FALSE}
packages <- c("kableExtra")
if ( length(missing_pkgs <- setdiff(packages,rownames(installed.packages()))) > 0) {
message("Installing missing package(s): ",paste(missing_pkgs,collapse = ","))
install.packages(missing_pkgs)
}
```
```{r message=FALSE,warning=FALSE,include=FALSE}
library(kableExtra)
```
```{r echo=FALSE,results='asis'}
x<-c("hello","hi","yellow","green","apple")
y<-c(rep(5,5))
r<-c(rep("καλημέρα",5))
data<-cbind(x,y,r)
kableExtra::kable(data,"latex",caption = "Πίνακας",booktabs = T,align = "c") %>%
kable_styling(latex_options = "HOLD_position")
```
我修复了 yaml 以便在文本中使用两种语言,但在表格中我无法修复此问题 我的输出是
我怎样才能使英文单词以正确的方式出现? 我想在桌子上同时出现英语和希腊语
解决方法
如果您使用 escape = F
选项,您可以将 \en
宏用于您的英语单词:
---
output:
bookdown::pdf_document2:
number_sections: true
toc: yes
keep_tex: true
header-includes:
- \usepackage{titling}
- \usepackage{amssymb}
- \usepackage{dcolumn}
- \usepackage[utf8]{inputenc}
- \usepackage[english,greek]{babel}
- \newcommand{\en}[1]{{\selectlanguage{english}#1}}
- \newcommand{\gr}[1]{{\selectlanguage{greek}#1}}
- \usepackage[useregional]{datetime2}
- \usepackage{float}
- \usepackage{colortbl}
---
---
title: \gr{ΤΕΣΤ}
subtitle: \en{TEST}
date: \today
---
```{r warning=FALSE,include=FALSE}
Sys.setlocale("LC_CTYPE","Greek")
```
```{r warning=FALSE,include=FALSE}
packages <- c("kableExtra")
if ( length(missing_pkgs <- setdiff(packages,rownames(installed.packages()))) > 0) {
message("Installing missing package(s): ",paste(missing_pkgs,collapse = ","))
install.packages(missing_pkgs)
}
```
```{r message=FALSE,warning=FALSE,include=FALSE}
library(kableExtra)
```
```{r echo=FALSE,results='asis'}
x<-c("\\en{hello}","\\en{hi}","\\en{yellow}","\\en{green}","\\en{apple}")
y<-c(rep(5,5))
r<-c(rep("καλημέρα",5))
data<-cbind(x,y,r)
kableExtra::kable(data,"latex",caption = "Πίνακας",booktabs = T,align = "c",escape = F) %>%
kable_styling(latex_options = "HOLD_position")
```
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。