Merge pull request #28 from wognsths/master

0708 commit
jinseob2kim · Jul 8, 2024 · d20467d · d20467d
2 parents 7114224 + ebf49c0
commit d20467d
Show file tree

Hide file tree

Showing 6 changed files with 82 additions and 77 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -11,7 +11,7 @@ Depends: R (>= 3.4.0)
 License: Apache License 2.0  
 Encoding: UTF-8
 Imports: ggplot2, ggpubr, survival, survey, scales, patchwork
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 URL: https://github.com/jinseob2kim/jskm, https://jinseob2kim.github.io/jskm/
 BugReports: https://github.com/jinseob2kim/jstable/issues
 Suggests: 

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# jskm 0.5.5
+
+* Update: Align color of censoring marks with color of lines in `jskm`.
+
 # jskm 0.5.4
 
 * Update: Add customization of line colors to `jskm` and `svyjskm`

diff --git a/R/jskm.R b/R/jskm.R
@@ -404,8 +404,7 @@ jskm <- function(sfit,
 
   # Add censoring marks to the line:
   if (marks == TRUE) {
-    p <- p + geom_point(data = subset(df, n.censor >= 1), aes(x = time, y = surv), shape = shape, colour = "black")
-  }
+    p <- p + geom_point(data = subset(df, n.censor >= 1), aes(x = time, y = surv, colour = strata), shape = shape)  }
 
   # Add 95% CI to plot
   if (ci == TRUE) {