使用 R Markdown _PyCharm中文网

添加代码块

要将新的 R 块添加到 R Markdown 文件中，请将脱字符号放在任意行或代码块处，然后单击或按。CtrlAltInsert
以下构造将添加到所选行或块下方：
```
```{r}

```
```
在块中键入任何 R 代码。
将 R 代码添加到块时，请使用编码辅助功能，例如代码完成、代码检查和快速修复。

物品	描述
	执行当前代码块。
	调试当前代码块。
	执行当前块之上的所有代码块。
	执行当前块下面的所有代码块。

执行代码块

调试代码块

生成 HTML 输出

构建演示文稿

创建一个新的*.rmd文件，并在指定其类型时选择“Presentation”。

使用##标题来标记每张新幻灯片。以下代码示例创建三个内容幻灯片：

## Bar plot
```{r}
mycars <- within(mtcars, {cyl <- ordered(cyl)})
```
```{r}
cyls <- table(mycars$cyl)
barplot(cyls, main="Car cylinder distribution", col = "#d4724e")
```
## Pie
```{r}
slices <- c(10, 12,4, 16, 10)
lbls <- c("US", "UK", "Australia", "Germany", "France")
mytable <- (slices)
pie(slices, labels = lbls, main="Pie Chart of Countries")
```
## Dot plot
```{r}
dotchart(mtcars$drat,labels=row.names(mtcars),cex=.7,
main="Rear axle ratio")
```

单击可在浏览器中打开生成的演示文稿。
动图

使用 Shiny 创建交互式小部件

创建一个新的*.rmd文件并在指定其类型时选择Shiny。
编辑模板文件中的代码块或单击创建新的代码块。

添加您的 Shiny 代码，例如，来自Shiny Gallery的一个示例：

```{r echo = FALSE}
# Define UI for app that draws a histogram ----
ui <- fluidPage(

    # App title ----
    titlePanel("Hello Shiny!"),

    # Sidebar layout with input and output definitions ----
    sidebarLayout(

        # Sidebar panel for inputs ----
        sidebarPanel(

            # Input: Slider for the number of bins ----
            sliderInput(inputId = "bins",
                label = "Number of bins:",
                min = 1,
                max = 50,
                value = 30)

        ),

        # Main panel for displaying outputs ----
        mainPanel(

            # Output: Histogram ----
            plotOutput(outputId = "distPlot")

        )
    )
)
# Define server logic required to draw a histogram ----
server <- function(input, output) {

# Histogram of the Old Faithful Geyser Data ----
# with requested number of bins
# This expression that generates a histogram is wrapped in a call
# to renderPlot to indicate that:
#
# 1. It is "reactive" and therefore should be automatically
#    re-executed when inputs (input$bins) change
# 2. Its output type is a plot
    output$distPlot <- renderPlot({

        x    <- faithful$waiting
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        hist(x, breaks = bins, col = "#75AADB", border = "white",
        xlab = "Waiting time to next eruption (in mins)",
        main = "Histogram of waiting times")

    })

}
shinyApp(ui, server)
```

如果任何代码行突出显示，请将其悬停在上面：您可能尚未shiny安装该软件包。按并安装缺少的软件包。AltEnter
单击以构建输出。
动图

使用 R Markdown﻿

添加代码块﻿

执行代码块﻿

调试代码块﻿

生成 HTML 输出﻿

构建演示文稿﻿

使用 Shiny 创建交互式小部件﻿

使用 R Markdown

添加代码块

执行代码块

调试代码块

生成 HTML 输出

构建演示文稿

使用 Shiny 创建交互式小部件