联系方式

联系信息

学术平台

社交媒体

联系表单

#| echo: false #| fig-align: center library(shiny) shinyApp( ui = fluidPage( textInput(“name”, “姓名”), textInput(“email”, “邮箱”), textAreaInput(“message”, “留言”, rows = 5), actionButton(“submit”, “提交”) ), server = function(input, output) {} )

---
title: "联系方式"
---

# 联系信息

```{r}
#| echo: false
#| fig-align: center
library(ggplot2)
contact <- data.frame(
  type = c("Email", "电话", "地址"),
  value = c("jiangzeyu@hzau.edu.cn", "+86 138-1234-5678", "湖北省武汉市洪山区狮子山街1号")
)

ggplot(contact, aes(x = type, y = value)) +
  geom_col(fill = "#1E90FF") +
  coord_flip() +
  theme_minimal() +
  labs(title = "联系方式",
       x = "",
       y = "")
```

## 学术平台

- [Google Scholar](#)
- [ResearchGate](#)
- [ORCID](#)

## 社交媒体

- [微信](#)
- [微博](#)
- [LinkedIn](#)

# 联系表单

```{r}
#| echo: false
#| fig-align: center
library(shiny)
shinyApp(
  ui = fluidPage(
    textInput("name", "姓名"),
    textInput("email", "邮箱"),
    textAreaInput("message", "留言", rows = 5),
    actionButton("submit", "提交")
  ),
  server = function(input, output) {}
)