小编use*_*408的帖子

这可能是一个非常简单的问题，但我似乎无法弄清楚。最近，我们将一个项目从Google云端硬盘上的共享文件夹移到了团队云端硬盘。我曾经使用以下代码直接从R访问电子表格：

library(googlesheets)
mydir <- gs_ls() #authenticate to google list sheets
mydir$sheet_title
mygs <- gs_title(x = "FileName", verbose = F) #read file
mygs <- gs_read(ss = mygs, ws = "SheetName", skip=1) # get specific worksheet

但是，既然我们移动了该项目，该项目将无法再使用，因为googlesheets软件包仅适用于我的Google云端硬盘目录。我找到了一个用于访问我的Team Drive（googledrive）的程序包，并且设法在目录中找到了该文件，但是似乎无法弄清楚如何阅读我的特定工作表：

library(googledrive)
td <- team_drive_find()
myfile <- drive_find(team_drive = as_id(td$id[td$name=="TDriveName"]),
                     pattern = "FileName")
myfile <- drive_get(id = as_id(myfile$id), verbose = TRUE)

这使我对电子表格的元数据有所了解，但没有像gs_title（）这样的实际电子表格。必须具有执行此功能的功能吗？

我有 2 个数据框，用来制作 2 个散点图。我使用一列来设置标记的 Alpha 和大小，并且我需要第二个图中的缩放比例与第一个图中相同。问题是，虽然图 A 中的值范围从 0 到 1，但在图 B 中，它们的范围从 0 到 0.5（B 中的刻度也应该从 0 到 1）...

快速示例：

x=seq(from=1, to=10, by=1)
y=seq(from=1, to=10, by=1)
markerA=sample(0:100,10, replace=T)/100
markerB=sample(0:50,10, replace=T)/100
dfA=data.frame(x,y,markerA)
dfB=data.frame(x,y,markerB)
a<- ggplot(dfA,aes(x=x, y=y))
a <- a + geom_point(aes(alpha=dfA$markerA, size=dfA$markerA))
a
b<- ggplot(dfB,aes(x=x, y=y))
b <- b + geom_point(aes(alpha=dfB$markerB, size=dfB$markerB))
b

我认为应该有一个简单的方法来做到这一点，但我似乎找不到它......