使用 ggplot2 使用整数值绘制阿基米德螺线

如何在 R 中绘制漩涡？我正在尝试绘制一个数字列表 1:100 每第 7 个数字分配一个因子 '1' 所有其他数字分配为 '0' 。我还有一个 TRUE 或 FALSE 向量。如何绘制这些数字的漩涡并突出显示每七个数字？尝试看看是否可以收紧或松开漩涡（theta）以对齐第七个数字。我使用以下代码来创建数据。我使用了两个不同的函数只是为了看看哪个向量效果最好。逻辑向量或“1”或“0”的向量。

returnint  <- function( x ) { 
if ( x == TRUE) {
        return (1)
    } else {
        return (0)
   }  
}

isseven <- function( x ) {
if  (x %% 7)  {
       return (0) # FALSE
    } else {
       return (1) # TRUE
   }
}

fo = seq(1, 100)
fo.sev = NULL # factors
fo.int = NULL   # as int 0 = FALSE , 1 = TRUE

for (i in 1:length(fo)) {
   fo.sev[i] = as.logical(isseven(i)) 
   fo.int[i] = returnint(fo.sev[i])
}


df <- data.frame(fo,fo.int,as.factor(fo.sev))
names(df) <- c("x","intx","seven")
df

（我承认回答了标题中的要求，但不明白你的文本的其余部分要求什么，尽管我后来进行了猜测。）只需使用一对参数方程设置数据：

x = t*cos(t); y = t*sin(t)

你需要实例化t足够精细......如果您的目的是平滑曲线：

 t <- seq(0, 10, by=0.01)
 x = t*cos(t); y = t*sin(t)
 ggplot(data.frame(x,y), aes(x=x,y=y))+geom_path()

这是对绘制整数所要求的猜测；

png()
  print( ggplot( df, aes(x=x*cos(x), y=x*sin(x)))  + 
            geom_label(data=df, aes(label=x, color=intx, size=intx + 1) ) + 
            coord_equal() )
  dev.off()

标签盒确实有一个最小尺寸，因为即使它们的尺寸是可见的，size为零。我确实得到了更小的“标签盒”label.padding = unit(0.05, "lines")