R-Latex sweave 如何隐藏R代码

最新推荐文章于 2024-01-12 15:36:00 发布

小酥饼maomao

最新推荐文章于 2024-01-12 15:36:00 发布

阅读量3.4k

点赞数

本文链接：https://blog.csdn.net/u011454283/article/details/50457853

版权

本文介绍了一种结合R和LaTeX的方法，通过sweave函数来隐藏R代码并仅显示生成的图形。步骤包括配置R和LaTeX环境，创建.Snw文件，设置echo=false隐藏代码，fig=true显示图像，然后使用R的Sweave函数生成.tex文件，最终编译成PDF，得到隐藏代码但包含多个图形的报告。

摘要由CSDN通过智能技术生成

问题：

R导出结果时，如何将R的code隐藏掉，但显示需要显示部分，如只显示图片，隐藏gglot（data，aes（x=“”，y=“”））+geom_bar（state=“”）代码

方法：

采用R与latex相结合，调用sweave方法，生成pdf文件

step1：

配置环境

R中加载utils包，library(utils),因为需要使用包里的sweave（）函数；

latex设定好sweave包，方法：打开Miktex下的 settings( admin),点击roots，点击add，将path设置为C:\Program Files\R\R-3.2.0\share\texmf，点击确定

step2：

在latex下建立.snw文件如下，该文件中包含R code，echo=false语句可以将代码隐藏，fig=true语句使图像显示，后保存为ggplot-01-04.Snw，格式为.Snw 或.Rnw

\documentclass[UTF8,10pt,a4paper]{article}  
\title{A Test R-Latex Document}
\author{Siyuan Mao} 
\usepackage{Sweave} 
\SweaveOpts{pdf=TRUE, eps=FALSE} 

\begin{document} 
\maketitle 
<<echo=false, results=hide>>=
library(data.table) 
library(ggplot2) 
library(scales)
library(gcookbook) 
library(plyr)
library(zoo)
library(gridExtra)
library(lubridate)
library(caTools)
library(knitr) 
library('RODBC') 
setwd("C:\\Users\\msy\\Documents\\work\\latex")

mm<-read.csv("anshan-ershouqiche.csv",header=T,stringsAsFactors = FALSE)
julian_date <- mm$julian_date
julian_date <- ymd(julian_date)
julian_date <- as.Date(julian_date)

pv <- mm$pv
uv<- mm$uv
naad <- mm$naad
user_num <-mm$user_num

pv_pic<-ggplot(mm)+geom_line(aes(as.Date(ymd(as.factor(julian_date))),pv),colour = 4,size=0.5,alpha=0.7)+
geom_point(aes(as.Date(ymd(as.factor(julian_date))),pv),colour = 4,size=0.5,alpha=0.7)+
scale_x_date(labels = date_format("%y/%m/%d"),breaks='3 month')+
theme_bw()+
ggtitle("pv")+
theme(axis.title.x=element_blank(),