小编Phi*_*hil的帖子

每当我在RStudio中绘制任何绘图时,我都会弹出一个新的设备窗口.情况并非总是如此.我必须更改一些设置.如何更改设置以使绘图转到RStudio绘图窗口？

我已经探索了dev.off()其他dev功能而没有成功.例如:

# Clear workspace
rm(list=ls())

# create data
set.seed(1)
x <- rnorm(100, 0, 1)
y <- rnorm(100, 3, 1)

plot(x,y)

在截屏图像中生成弹出窗口:

我希望设备保留在右下角的RStudio绘图窗口中.有没有人有任何帮助？我在这里看到一个类似的问题,声称更新将解决问题.我在上周内更新了.当我使用sessionInfo()我正在运行时R version 3.3.2,我认为是最新版本的R.

我最近在计算机上安装了MySQL，并尝试将RStudio连接到MySQL。我按照书中的说明以及此处的说明进行操作。但是，无论何时使用dbConnect()或src_mysql在中RStudio，我都会收到以下错误消息：

Error in .local(drv, ...) : 
  Failed to connect to database: Error: Plugin caching_sha2_password could not be loaded: The specified module could not be found

例如，我可能会在Windows中使用命令提示符登录到MySQL

mysql -u username -p

并如下创建数据库

CREATE DATABASE myDatabase;

然后在RStudio中：

library(RMySQL)
db <- dbConnect(MySQL(), dbname = "myDatabase", user = "username", 
           password = "password", host = "localhost")

而我的回应始终是上面列出的错误消息。

如果需要的话： sessionInfo()

R version 3.5.2 (2018-12-20)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

我正在使用R,我希望将数据舍入到最接近的0.25或0.75,但不包括0.00或0.50.

例如,如果我想舍入到最接近的0.00或0.50,我会这样做:

test <- seq(1,10,0.33) 
[1] 1.00 1.33 1.66 1.99 2.32 2.65 2.98 3.31 3.64 3.97 4.30 4.63 4.96 5.29 5.62 5.95 6.28 6.61 6.94 7.27 7.60 7.93 8.26 8.59 8.92 9.25 9.58 9.91

舍入到0.00或0.50:

round(test * 2)/2
[1]  1.0  1.5  1.5  2.0  2.5  2.5  3.0  3.5  3.5  4.0  4.5  4.5  5.0  5.5  5.5  6.0  6.5  6.5  7.0  7.5  7.5  8.0  8.5  8.5  9.0  9.0  9.5 10.0

我可以做0.25的倍数.我该怎么做才能将这些数字专门用于0.25或0.75,不包括0.50和0.00？

我试图用 R 中的两个 y 轴绘制多年来的一些数据。但是，每当我尝试包含一个图例时，图例主宰了我的情节。当我使用其他地方建议的解决方案时，例如keyword和/或使用此处cex另一篇文章中建议的参数，它要么变得不可读，要么仍然太大。

这是我使用随机生成数据的示例：

#Create years
year.df <- seq(1974, 2014, 1) 

# Create y-axis data
set.seed(75)
mean1 <- rnorm(length(year.df), 52.49, 0.87) 
mean2 <- rnorm(length(year.df), 52.47, 0.96) 

#Create dataframe
df <- data.frame(cbind(year.df, mean1, mean2)) 

我想要第二个 y 轴，多年来这两种平均值的差异

df$diff <- abs(df$mean1 - df$mean2)

当我使用下面的代码绘制两个 y 轴时：

par(mfrow=c(1,1), mar=c(5.1,4.1,4.1,5.1))
with(df, plot(year.df, mean1, type = "l", lwd=4, xlab="Year", ylab="Mean", ylim=c(48,58)))
with(df, lines(year.df, mean2, type = "l", col="green", lwd=4))

par(new=TRUE)
with(df, plot(year.df, diff, type="l", axes=FALSE, xlab=NA, ylab=NA, col="red", …