相关疑难解决方法(0)

我需要绘制一个显示计数的条形图和一个在一个图表中显示速率的折线图,我可以分别做两个,但是当我把它们放在一起时,我的第一层的比例(即geom_bar)与第二层重叠层(即geom_line).

我可以将轴geom_line向右移动吗？

我正在使用 package.json 运行模糊 C 均值聚类e1071。我想根据以下公式给出的模糊性能指数（FPI）（模糊程度）和归一化分类熵（NCE）（特定类别的混乱程度）来确定最佳簇数

其中 c 是聚类数，n 是观测值数，\xce\xbc _ik是模糊隶属度，log _a是自然对数。

我正在使用以下代码

library(e1071)\nx <- rbind(matrix(rnorm(100,sd=0.3),ncol=2),\n         matrix(rnorm(100,mean=1,sd=0.3),ncol=2))\ncl <- cmeans(x,2,20,verbose=TRUE,method="cmeans")\ncl$membership\n

我已经能够提取 \xce\xbc _ik即模糊隶属度。现在，cmeans必须针对不同数量的簇（例如 2 到 6），并且必须计算 FPI 和 NCE 以获得如下图所示的图

在R中如何实现呢？

编辑

iris我已使用以下代码尝试了@nya为数据集提供的代码

df <- scale(iris[-5])\n\nFPI <- function(cmem){\n  c <- ncol(cmem)\n  n <- nrow(cmem)\n  \n  1 - (c / (c - 1)) * (1 - sum(cmem^2) / n)\n}\n\nNCE <- function(cmem){\n  c <- ncol(cmem)\n  n …

如何使用plot()将XY图中的第二行绘制到不同的比例(如此示例)(紫色线)？

我的第一个(红色)行的R代码是这样的:

p <- sqlQuery(ch,"SELECT wl,param1 FROM qryPlot ORDER BY wl")
plot(p$wl,p$param1,axes=T,xlim=c(400,800),ylim=c(0,100),type="l",col="red")

我有20套以下数据集，并希望将两个图与两个y轴合为一个，以正确反映变量值。

hour=c(0:23)
conc=c(20.7, 19.4, 15.6, 11.7, 10.3, 9.1, 9.7, 10.6, 12.7, 12.6, 11, 9.8,
       9.3, 9.3, 10.3, 12.9, 17.1, 22.5, 22, 22.3, 23, 24.8, 24, 26.8)
ws=c(0.75, 0.7, 0.68, 0.64, 0.61, 0.64, 0.57, 0.58, .62, .65, .85, 1.12, 
     1.21, 1.29, 1.2, 1.18, 1.0, 0.84, .87, .75, .69, .69, .77, .74)
wd=c(295, 299, 288, 290, 292, 296, 306, 303, 300, 293, 259, 231, 94, 119, 
     95, 47, 75, 306, 302, 304, 319, 309, 290, 298)
mydf=data.frame(hour, conc, ws, wd)

我可以使用以下代码将它们分别绘制为1-by-2图：

conchrly …