在R中限制loess的多核使用
在R中，loess是一种局部加权回归方法，用于拟合非线性关系。loess函数在默认情况下会使用多核来加速计算，但有时我们可能希望限制其使用的核数。
要在R中限制loess的多核使用，可以使用以下方法之一：
- 使用setNumThreads函数：可以使用setNumThreads函数来设置R使用的最大核数。例如，如果我们希望限制loess只使用单核，可以将核数设置为1。以下是设置核数为1的示例代码：
library(parallel)
setNumThreads(1)- 使用系统环境变量：另一种方法是通过设置系统环境变量来限制R的多核使用。具体的设置方法可能因操作系统而异。以下是在Windows系统中设置环境变量的示例：
- 打开“控制面板”并选择“系统和安全”。
- 选择“系统”并点击“高级系统设置”。
- 在弹出窗口中，点击“环境变量”按钮。
- 在“系统变量”部分，点击“新建”按钮。
- 输入变量名为“R_MAX_NUM_DLLS”，变量值为“1”。
- 点击“确定”保存设置。
请注意，以上方法仅适用于限制loess函数的多核使用。其他函数可能仍然使用多核。
loess的优势是能够灵活地拟合非线性关系，并且对异常值具有较好的鲁棒性。它在数据探索、数据可视化和预测建模等领域都有广泛的应用。
腾讯云提供了一系列与云计算相关的产品，例如云服务器、云数据库、云存储等。您可以通过访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于这些产品的详细信息。
相关·内容
1回答
在R中，当我使用lowess()并用line()函数绘制光滑的y值时，我能提取给定x的任何值的光滑y值吗？请问怎么做？谢谢!
在R中，有其他方法可以提取给定x的光滑y值吗？
浏览 1提问于2018-10-05得票数 1
回答已采纳
4回答
我是波特兰的开发商。我想知道有没有人可以帮忙：
我正在使用R处理黄土拟合模型，一旦我完成了拟合，我就想要取消拟合非线性曲线的方程，想知道是否有一种方法在R中确定这个方程？我一直在找，但是找不到任何文献。对我来说，函数的图形很棒，但如果没有图形的方程式，我就会陷入困境。
浏览 3提问于2009-11-24得票数 10
1回答
我有一个问题，黄土适合R。我正在使用默认的虹膜数据集包括在每一个R安装。然而，当我试图制作一条黄土线时，它到处都是。黄土(y~x)的黄土线是红色的，因为我想试验，看看我是不是错了，黄土的线(x~y)是蓝色的。正如你所看到的，这些线条显然是错误的。为什么会发生这种情况？我好像没办法修好它。以下是代码：
#ignore
library(lattice)
#cloud()
#CODE OF CONCERN BELOW
data <- iris
n<-150
x <- data$Petal.Length
y<-data$Petal.Width
plot(y ~ x)
loes
浏览 1提问于2017-06-14得票数 1
回答已采纳
1回答
这只是一个警告，我开始使用R day ago...my，如果有任何事情看起来非常简单，我深表歉意。
现在，我正在尝试让R获取一个包含碰撞加速度计数据的.txt文件，并为其计算头部损伤标准测试。HIC测试要求将数据中的曲线按一定的间隔进行积分。
等式在下面的链接中…我试图将它作为图像插入到这里，但它不让我这样做。显然，在它允许我这么做之前，我需要一些名誉点。
a(t)是加速度曲线。
到目前为止，我还没有遇到在R中生成合适的曲线来匹配数据的问题。loess函数运行得很好，这正是我想要的东西……我只是不知道如何集成它。据我所知，黄土是一种非参数回归，因此无法确定曲线iteslf的方程。有没
浏览 0提问于2011-10-19得票数 6
回答已采纳
1回答
我试图表明，我正在分析的一些数据中有一个奇怪的“颠簸”(这与市场份额有关。我的代码如下：
qplot(Share, Rate, data = Dataset3, geom=c("point", "smooth"))
(我明白，如果没有数据集，这段代码就不是很有用)。
有没有什么方法可以让我从R中得到用于生成平滑线的数值向量？我只需要该层来尝试将模型拟合到平滑后的数据。
感谢您给予的任何帮助。
浏览 0提问于2011-07-14得票数 4
回答已采纳
1回答
在对自举数据使用R中的loess.smooth函数后，自举数据集(n = 134560)减少为(n = 50)个观测值。有没有办法在SAS中复制这种效果？
我对PROC黄土不是很熟悉。我尝试了几次，但不明白如何才能复制这种效果(effect =减少n的最终数据集)。
这个问题的原因是:我发现在SAS中进行引导要容易得多，但无法在SAS中创建可绘制的数据集。
在这方面的任何帮助或指导都是非常感谢的。谢谢。
浏览 3提问于2014-08-01得票数 1
2回答
我正在使用多个回归模型来模拟一个问题，例如一周中的每一天都有一个。我希望将它们存储在R中的数据结构中，这样我就可以在需要时调用它们。作为问题的最小示例，假设我想为z的每个值构造一个
df = data.frame(z = rep(c('a', 'b'), each = 10),
x = rep.int(1:10, times = 2),
y = rep.int(10:1, times = 2))
我天真地尝试了以下尝试：
dt = data.table(df)
v.type = unique(dt$z)
v.l
浏览 2提问于2013-04-09得票数 1
回答已采纳
1回答
我得到了这个data.frame：，我想要计算Intermediate.MAP.Score ~ x的loess，所以我从整个数据集中得到一条曲线。但是每个组(通过name)应该像其他组一样拥有相同的鬼魂，我不确定如果我在整个data.frame上调用loess会发生什么。我是否需要在每个组中调用一次，然后将它们组合起来？如果是，我该怎么做？
浏览 0提问于2012-03-29得票数 0
回答已采纳
2回答
我有一个用Scatter.Smooth函数平滑的图形。如果X轴是日期的话，我需要得到坐标。
光滑曲线是在K尼姆R节点中生成的。我想要的点，以便使用它在一个线图节点。
是否还有其他方法可以从生成的图形获取Knime中的线条图的值？
更新
我添加了R代码，用于生成R节点中的光滑曲线
plot(x,y)
scatter.smooth(x,y)
//x<- Date
//y <- Frequency
//Basically the values are from the Data file in another node. For simplicity I have menti
浏览 7提问于2016-03-02得票数 0
2回答
我正在尝试使用R中的Sql用空白替换NA。我使用了下面的代码，但我仍然得到"NA“而不是空白！ DF_TEST_PN <- sqldf("Select *，Case when Proj_Loess ='NA‘then’‘else Proj_Loess end as New_Proj_Loess From Test")
浏览 29提问于2020-07-28得票数 0
在C:\R-3.0.2\R-3.0.2\src\library\stats\R中有一个目录，一个包含字符loess的文件，我想要得到文件名，为什么我不能得到它？
find /cygdrive/c/R-3.0.2 -name "loess"
我什么也得不到。
浏览 0提问于2013-11-23得票数 0
回答已采纳
2回答
我有三个输出结果如下，
structure(c("[1] \"lls_loess\" \"lls_rlr\" \"knn_loess\"",
"[1] \"lls_loess\" \"lls_rlr\" \"knn_loess\"", "[1] \"lls_loess\" \"lls_rlr\" \"lls_vsn\" "
), dim = c(1L, 3L), dimnames = li
浏览 7提问于2022-07-21得票数 0
回答已采纳
我没有找到R的'stats‘包的LOWESS回归线的置信区间(CI)的任何令人满意的答案：
plot(cars, main = "lowess(cars)")
lines(lowess(cars), col = 2)
但我不确定如何画出95%的CI？？然而，我知道我可以从下面得到估计的方差
V = s^2*sum(w^2)
其中，s2=估计误差方差和w=weights应用于X。因此，95%的CI应为
Y plus/minus 2*sqrt(V(Y))
我知道有一种方法可以从loess fit中获得CI，但我更喜欢LOWESS，因为它很健壮。谢谢你的建议。
浏览 1提问于2014-03-29得票数 16
回答已采纳
1回答
我在R中有这段代码： plot(p,vec, pch = 4, xlab= "Values of x",ylab= "f(x)" )
lines(p,vec)
return (vec) 我有这个图： 📷 我想要平滑曲线并得到R的方程式，你能帮我吗？
浏览 18提问于2020-04-03得票数 1
8回答
我正在尝试在R中绘制一条平滑的曲线。我有以下简单的玩具数据：
> x
[1] 1 2 3 4 5 6 7 8 9 10
> y
[1] 2 4 6 8 7 12 14 16 18 20
现在，当我使用一个标准命令绘制它时，它看起来当然是凹凸不平的：
> plot(x,y, type='l', lwd=2, col='red')
如何使曲线平滑，以便使用估计值对3条边进行舍入？我知道有很多方法可以拟合一条平滑的曲线，但我不确定哪种方法最适合这种类型的曲线，以及如何用R编写它。
浏览 16提问于2010-08-14得票数 93
回答已采纳
我在阅读哈德利·韦翰( Hadley )的“数据科学R”(R for Data Science)一书时，开始提出这个问题。在“数据转换”一章中，作者使用了以下示例：
library(nycflights13)
library(tidyverse)
by_dest <- group_by(flights, dest)
delay <- summarise(by_dest,
count = n(),
dist = mean(distance, na.rm = TRUE),
delay = mean(arr_delay, na.rm = TRUE)
)
#> `summ
浏览 3提问于2021-06-10得票数 0
1回答
我在上读过这篇文章。我试图在geom_smooth函数中更改tidyverse中的alpha和lambda参数。使用R中的本地数据集，我使用以下默认代码绘制了一个正常黄土：
#### Load Library ####
library(tidyverse)
#### Plot Default Loess ####
ggplot(iris,
aes(x=Sepal.Width,
y=Sepal.Length))+
geom_point()+
geom_smooth()
给出了典型的黄土地块：
但是，我并不完全确定如何修改alpha和lamb
浏览 3提问于2022-06-26得票数 1
回答已采纳
我有两个数据帧，它们具有相同的列名x和y。
两者都存储数据y= f(x)，但x值没有对齐。
我想要的是计算第三个数据框架，它将提供两个数据帧的平均值(在它们相交的地方)。
在R中有办法做到这一点吗？
下面是一个包含两个sin曲线的示例代码。我要找的是“平均值的曲线”，在这个例子中，它应该是sin(x) + 0.1。在现实生活中，我想对真实的数据执行操作。
x1 <- seq(1, 10, by = 0.1)
x2 <- seq(0.5, 9.5, by = 0.11)
y1 <- sin(x1) + 0.2
y2 <- sin(x2)
df1 <- data.fr
浏览 5提问于2016-04-07得票数 0
回答已采纳
我需要平滑一些模拟数据，但偶尔遇到问题时，模拟纵坐标平滑大部分是相同的值。下面是一个最简单的例子，可以重复使用。
> x <- 0:50
> y <- rep(0,51)
> loess.smooth(x,y)
Error in simpleLoess(y, x, w, span, degree, FALSE, FALSE, normalize = FALSE, :
NA/NaN/Inf in foreign function call (arg 1)
loess(y~x)、lowess(x,y)及其在MATLAB中的模拟结果在此示例中无误差地产生预期结
浏览 5提问于2011-01-10得票数 7
回答已采纳
2回答
使用低值平滑
、、
我正在尝试将matlab脚本转换为R，但在平滑方面遇到了一些问题。
我想要转换的matlab代码如下：
for i = 1:size(spike_sum,2)
smooth_sum(1:Ne,i)=smooth(double(spike_sum(1:Ne,i)),spanNe,'lowess');
end
for i = 1:Ne
smoother_sum(i,:)=smooth(double(smooth_sum(i,:)),spanT,'lowess');
end
其中spike_sum是一个Ne x 4000的矩阵。我想首
浏览 0提问于2011-10-13得票数 1
回答已采纳
我有一组重新采样的数据，是否有一个函数命令可以在R中使用来平滑数据，然后才能从创建的数据帧创建图形？
我的数据有很多噪声，在我重新采样数据之后，现在我想平滑数据，我使用geom_smooth来生成数据的图形，但该命令只创建平滑数据的图形表示，而不给出它表示的点的值。
use ggplot
library(ggplot2)
library(dplyr)
library(plotly)
df <- read.csv("data.csv", header = T)
str(df)
rs <- sample_n(df,715)
q <-
ggplot(d
浏览 3提问于2019-07-11得票数 1
3回答
我正在研究质谱蛋白质组学表达数据。对于数据的统计分析，我必须找到数据中每个列的前三个最小值，如下所示，
structure(list(Type = c("knn_vsn", "knn_loess", "knn_rlr", "lls_vsn",
"lls_loess", "lls_rlr", "svd_vsn", "svd_loess", "svd_rlr"), Group1 = c(0.00318368971435714,
0.0031708648
浏览 16提问于2022-07-14得票数 0
回答已采纳
我在一个闪亮的应用程序的ui.R中提供了用户输入字段：
library(shiny)
shinyUI(
numericInput("n_sampling", "Number of Samples")
)
然后，我希望server.R可以使用n_resampling作为设置矩阵的参数：
library(shiny)
shinyServer(
function(input, output)
{
n_row <- reactive({as.numeric(input$n_sampling)})
浏览 1提问于2015-04-14得票数 0
1回答
R中黄土的标准误差
、、、
我试图找到一个参考资料，解释如何计算局部多项式回归的标准误差？具体地说，在R中，可以使用loess函数来获取模型对象，然后使用预测函数来检索标准误差。有没有对实际发生的事情的引用？在残差中可能存在序列相关的情况下，必须使用Newey-West类型方法来调整它，有没有一种方法可以使用三明治包来实现这一点，就像您使用lm对常规OLS所做的那样？
我尝试查看源代码，但标准误差计算调用了一个C函数。
浏览 1提问于2012-10-03得票数 5
回答已采纳
2回答
R中的哪些包和函数可以执行二维非加性局部回归/平滑。例如，考虑
b<-seq(-6*pi,6*pi,length=100)
xy<-expand.grid(b,b)
x=xy[[1]]
y=xy[[2]]
z= sin(x)+cos(y) + 2*sin(x)*cos(y)
contour(b,b,matrix(z,100,100))
什么函数可以估计到这一点？
浏览 3提问于2010-10-19得票数 4
回答已采纳
我正在与R shiny合作构建一个简单的绘图应用程序，我不认为我真的理解checkboxGroupInput是如何工作的，而且R shiny应用程序网站上的文档也没有太大帮助，所以我希望得到一些澄清。
这是我的checkboxGroupInput的样子：
checkboxGroupInput("trend1DisplayOptions", "Graph Display Options",
choiceNames = list("Connect Data Points", &#
浏览 0提问于2018-09-10得票数 0
1回答
我尝试使用各种平滑函数，但没有找到适合我的函数。我有一个从csv文件中读取的数据帧，其中包含传感器数据，每一行都有一个日期时间戳：
df
#datetime value1 value2 value3 ...
#2015-10-2 05-10-12 0.1 1000 28 ...
#2015-10-2 05-10-14 0.21 2500 17 ...
#2015-10-2 05-10-19 0.52 1700 37 ...
#2015-10-2 05-11-01 0.31 1530 42 ...
#2015-10-2 05-11-03 0.25 1956 33 ...
#2015-10
浏览 4提问于2016-02-05得票数 2
回答已采纳
2回答
我可以基于一列日期和第二列值，在R中创建一条LOWE线。加载数据集后，我将显示下面的一列数据：
scatter.smooth(x=1:length(goals$Value), y=goals$Value)
但是，如何为附加的列添加多条黄土线路？在一个图形中绘制所有黄土线的代码是什么？例如，每个额外的列都被命名为Value2、Value3、Value4等。
浏览 1提问于2016-04-23得票数 1
我试图做一个5倍的交叉验证一个通用的加性模型使用黄土(gamLoess从gam包)，使用caret包。我想测试所有可能的学位选项(即degree= 0，1和2)。问题是，当我使用R时，degree=2会崩溃。我以前见过类似的问题(例如，)，但我不知道如何解决它。它看起来像是gam包中的一个bug。这件事解决了吗？
我的代码是：
#The data
turning_rate_4954
# A tibble: 100 x 2
Time_s turn_rate_dgs_s
<dbl> <dbl>
1 0
浏览 2提问于2020-06-05得票数 0
1回答
我有一个嵌套的for循环，这很费时。我认为并行化可以使它更快，但我不知道如何使用它。这是我的代码中的for循环：
for itr2 in range(K):
tmp_cl=clusters[itr2+1]
if len(tmp_cl)>1:
BD_cent=np.zeros((len(tmp_cl),1))
for itr3 in range(len(tmp_cl)):
sumv=0
for itr
浏览 9提问于2022-10-03得票数 0
1回答
我怎样才能在我的地块上画出不同的平滑线来获取不同时间段内的数据，但又如何将它们都画在整个地块上？
在下面的工作示例中，即使在将fullrange参数设置为TRUE时，光滑的行也会限制自己，并且得到丢失的值警告(这确实有意义，因为我们在每个geom_smooth()函数中本地设置一个新的数据范围)。
# convert time series to data.frame, conserving date info
sb <- data.frame(Seatbelts, date = time(Seatbelts))
# convert from ts to date
library(lub
浏览 0提问于2019-02-20得票数 1
回答已采纳
2回答
编辑：这个问题稍微改变了一下，为什么某个特定的扩展不能工作，而不是为什么一个普通的方法不能工作。
如标题所示，我很难将函数扩展到其他类(S3)。
例如：
x <- y <- runif(10)
loessModel = loess(y ~ x)
methods("cor")
## [1] cor.test cor.test.default* cor.test.formula*
cor.loess = function(loessModel, ...) { cor(loessModel$x, loessModel$y, ...) }
cor(loessModel)
浏览 4提问于2013-07-12得票数 1
回答已采纳
2回答
我下载了R-3.0.2.tar的源tar文件(不是二进制R文件)，当我解压它时，/R-3.0.2/src/library/stats/R/中有一个名为loess.R的文件。
当我编译和安装R时，在我输入的已安装的directory.when中找不到它
getAnywhere(loess)
<bytecode: 0x02d9a104>在输出信息末尾的含义是什么？
为什么我能看到黄土和黄土的源代码。R同时消失了？
这是一个事实，loess.R被编译成二进制形式。
1.在哪个二进制文件loess.R中编译成？
2.如果我有包含loess.R的二进制文件，我尝试将其解压缩到loess
浏览 0提问于2013-11-23得票数 1
回答已采纳
在我使用qplot()函数平滑绘图之后，我需要提取新的“平滑”数据。我不能从平滑的数据中构建数据框。
图是平滑的，但是通过构建数据框，我得到了一个错误消息。
我用这个使情节变得平滑
qq <- qplot(x4,y4, geom='smooth', span =0.5)
然后，我尝试这样构建数据框架：
data.frame(qq)
我得到了这样的信息：
Error in as.data.frame.default(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors) :
cannot coerc
浏览 73提问于2019-07-21得票数 1
回答已采纳
我希望重新创建此图：
(来自)
使用基于R的图形。
我不知道该怎么做。有什么建议吗？
(我的动机是希望创建一个图，其中线条宽度(和/或颜色)将反映另一个维度。到目前为止- ggplot2是我在R中找到的唯一一个如何做到这一点的地方。我很高兴也能在base R中做到这一点)
浏览 5提问于2010-07-04得票数 1
回答已采纳
我有一个包含100列数值的数据框架，其中每一列都是第一列的一个不同的循环移位。我需要一个接一个地在那些柱子上安装一个黄土过滤器。在我的上下文中，协变量很简单，只是指数1, 2, 3, ..., <number of rows>。
如何在新的数据帧中获得平滑的值？谢谢!
浏览 2提问于2016-06-26得票数 1
回答已采纳
我正在尝试在时间序列栅格中估算NA值。下面是我的数据的一个可重现的例子： library(raster)
library(rgdal)
library(doParallel)
library(foreach)
r1 <- r2 <- r3 <- r4 <- r5 <- raster(nrow=100, ncol=100)
values(r1) <- runif(ncell(r1))
values(r2) <- runif(ncell(r2))
values(r3) <- runif(ncell(r3))
values(r4) <- ru
浏览 33提问于2019-07-04得票数 1
如何更改R中scatter.smooth的颜色？我可以添加一个"col“参数，但这只会改变数据点(点)的颜色，而不会改变屏幕上的实际线条。如何更改实际线条的颜色。
浏览 1提问于2011-09-30得票数 6
回答已采纳
1回答
使用R中的“圆圈”包，我试图为每一首曲目添加标签。在下面的示例中，我希望它在扇区Y之后，扇区1之前，在扇区之间显示"A. In“，"B.表达式”，"C: Count“。
library(circlize)
circos.initializeWithIdeogram()
bed = generateRandomBed(nr = 500, fun = function(k) runif(k)*sample(c(-1, 1), k, replace = TRUE))
circos.genomicTrackPlotRegion(bed, ylim = c(-1, 1),
浏览 1提问于2018-12-03得票数 7
回答已采纳
1回答
如何在R中的平面图中自定义黄土
、、、、
我在R中创建了一个平面图，它使用以下代码显示叠加在平滑等高线图上的数据：
levelplot(chla_avg ~ lat * depth, trunc_level_test, ylim = c(275, 5), region = TRUE, col.regions = hcl.colors(110, palette = "spectral",rev=F), contour = FALSE, cuts = 100, panel = panel.levelplot.points) +
layer_(panel.2dsmoother(..., n = 400, method =
浏览 12提问于2022-06-25得票数 1
回答已采纳
2回答
我想使用网格来创建多个面板散点图，并使用分组因子通过每个面板添加平滑线，这是一个虚拟数据帧
x <- rep(1:10, 4)
a <- as.factor(rep(1:4, 10))
b <- as.factor(sort(rep(1:2, 20)))
y <- rep(NA, 80)
df <- data.frame(x, y, a, b)
df$y[df$b=="1"] <- df$x[df$b=="1"]+df$x[df$b=="1"]^0.5
df$y[df$b=="2"] &l
浏览 0提问于2013-04-18得票数 4
回答已采纳
1回答
ggplot2多轴标题
、、、
我几乎已经完成了我的代码，但我还有一个小问题。我需要改变x和y轴取决于从下拉菜单输入。例如，如果x= Sales，任意y= R&D，那么x轴应该是"Sales (百万美元)“，y轴应该是"R&D (百万美元)”，等等。但是y轴可以是销售轴，x轴也可以是R&D轴，这让我很困惑。到目前为止，我的代码如下：
UI：
ui = dashboardPage(
dashboardHeader(title = "Apple Financials"),
dashboardSidebar(
fileInput("file1"
浏览 0提问于2017-09-28得票数 1
回答已采纳
我有两组数据，这两组时间序列对时间都是可变的(在两种情况下都是相同的)，我已经使用pandas和matplotlib导入并绘制了它们。 from os import chdir
chdir('C:\\Users\\me\\Documents\\Folder')
# import necessary libraries
import pandas as pd
import numpy as np
import matplotlib.pyplot as plt
# read in csv file
file_df = pd.read_csv('C://Users//m
浏览 32提问于2020-07-04得票数 1
2回答
在R中使用封装格子绘制等高线时，如何控制等高线的平滑度？对于轮廓边缘清晰的低分辨率图像，默认设置尤其令人不快。
编辑:这就是我的问题--线段在尖锐的角落连接，而我想要一个平滑的关节。
require(lattice)
contourplot(volcano[1:10,1:10])
浏览 0提问于2012-03-26得票数 1
1回答
我对一些数据进行了黄土局部回归，我希望能够找到与给定的Y值相关的X值。
plot(cars, main = "Stopping Distance versus Speed")
car_loess <- loess(cars$dist~cars$speed,span=.5)
lines(1:50, predict(car_loess,data.frame(speed=1:50)))
我希望我可以使用来自inverse.predict包的chemCal函数，但这对黄土对象不起作用。
有没有人知道我如何能比用X值的长向量预测Y值更好地完成这一校准，并通过得到的拟合Y值得到感兴趣
浏览 4提问于2014-05-30得票数 0
回答已采纳
1回答
我正在Python中运行一个程序，使用线程来并行化任务。该任务是简单的字符串匹配，我正在匹配大量的短字符串到一个长字符串的数据库。当我试图将其并行化时，我决定将短字符串列表拆分成与内核数量相等的多个子列表，并在不同的内核上分别运行它们。然而，当我在5核或10核上运行任务时，它比只在一个核上运行慢大约两倍。可能的原因是什么，我如何才能修复它？
编辑:我的代码可以在下面看到
import sys
import os
import csv
import re
import threading
from Queue import Queue
from time import sleep
from th
浏览 4提问于2016-05-10得票数 1
2回答
黄土回归置信区间的解释
、、、
我有一个数据框架，如下所示：
days <- c(1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,7,7)
values <- c(3,4,5,6,7,8,1,4,5,9,9,10,3,4,7,7,7,10,4,6,6,8,9,9,1,1,2,3,3,6,2,2,3,5,6,6,6,7,7,8,9,9)
df <- data.frame(days,values)
为了识别数据中的信号，我决定应用一个简单的loess平滑：
loess <- loess(df$
浏览 1提问于2016-06-23得票数 1
回答已采纳
1回答
我对一些数据进行了黄土回归，并绘制了它。问题是我想将黑线和浅色红线(见图)导出到excel中。有可能吗？
澄清：
我想导出黄土回归的底层数据，而不是图表。
用于计算它的代码：
ggplot(data, aes(x=bigangle, y=meanz, colour=treatment)) +
geom_point(data=df, aes(y = X2/median(df$X2), x=X8),color="red",alpha=.6) +
geom_smooth(data=df, aes(y = X2/median(df$X2),x=X8),fill=&#
浏览 2提问于2016-05-02得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
