index.qmd

---
title: "Hello, Quarto"
format: html
editor: visual
---

```{r}
#| label: load-packages
#| include: false

library(tidyverse)
library(palmerpenguins)
```

## Meet Quarto

Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see <https://quarto.org>.

## Meet the penguins

![](https://raw.githubusercontent.com/quarto-dev/quarto-web/main/docs/get-started/hello/rstudio/lter_penguins.png){style="float:right;" fig-alt="Illustration of three species of Palmer Archipelago penguins: Chinstrap, Gentoo, and Adelie. Artwork by @allison_horst." width="401"}

The `penguins` data from the [**palmerpenguins**](https://allisonhorst.github.io/palmerpenguins "palmerpenguins R package") package contains size measurements for `r nrow(penguins)` penguins from three species observed on three islands in the Palmer Archipelago, Antarctica.

The plot below shows the relationship between flipper and bill lengths of these penguins.

```{r}
#| label: plot-penguins
#| warning: false
#| echo: false

ggplot(penguins, 
       aes(x = flipper_length_mm, y = bill_length_mm)) +
  geom_point(aes(color = species, shape = species)) +
  scale_color_manual(values = c("darkorange","purple","cyan4")) +
  labs(
    title = "Flipper and bill length",
    subtitle = "Dimensions for penguins at Palmer Station LTER",
    x = "Flipper length (mm)", y = "Bill length (mm)",
    color = "Penguin species", shape = "Penguin species"
  ) +
  theme_minimal()
```

## code chuk

```{r}
a <- 1
```

```{r}
#| eval: false
a <- 2
```

```{r}
print(a)
```

## Inline code

오늘 날짜는 "`r Sys.Date()`" 입니다.

## Table

-   그냥 출력

```{r}
ex <- read.csv('https://github.com/zarathucorp/R4CR-content/raw/main/example_g1e.csv')
head(ex)
```

```{r}
library(knitr)
library(reactable)
library(DT)
```

-   kable (STATIC, PDF)

```{r}
knitr::kable(head(ex))
```

-   reactable

```{r}
reactable::reactable(ex)
```

-   DT

```{r}
DT::datatable(ex)
```


iris 데이터의 행은 `r nrow(iris)`개이다. 



```{r}
#| eval: true
#| echo: false

library(dplyr)
```


```{r}
#| eval: false
#| echo: true

print(1+3)
```


```{r}
#| eval: false
#| echo: false

print(1+4)
```