diff --git a/NAMESPACE b/NAMESPACE
index e9958f8..797083b 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -56,6 +56,7 @@ export(position_nudge_centre)
 export(position_nudge_keep)
 export(position_nudge_line)
 export(position_nudge_to)
+export(position_stack_and_nudge)
 export(scale_npcx_continuous)
 export(scale_npcy_continuous)
 export(stat_apply_group)
diff --git a/R/position-nudge-stack.R b/R/position-nudge-stack.R
new file mode 100644
index 0000000..4ba635b
--- /dev/null
+++ b/R/position-nudge-stack.R
@@ -0,0 +1,127 @@
+#' Combined positions nudge and stack
+#'
+#' `position_stack_and_nudge()` is useful when labelling plots such as stacked
+#' bars, stacked columns, stacked lines, etc. In contrast to
+#' [ggplot2::position_nudge], `position_stack_and_nudge()` returns in `data`
+#' both the original coordinates and the nudged coordinates.
+#'
+#' This position function is backwards compatible with [ggplot2::position_nudge]
+#' but extends it by adding support for stacking and for the repulsive geometries
+#' from package 'ggrepel'.
+#'
+#' The wrapper `position_nudge_keep()` with exactly the same signature and
+#' behaviour as [ggplot2::position_nudge] provides an easier to remember name
+#' when the desire is only to have access to both the original and nudged
+#' coordinates.
+#'
+#' @family position adjustments
+#'
+#' @param x,y Amount of vertical and horizontal distance to move. A numeric
+#'   vector of length 1, or of the same length as rows there are in `data`,
+#' @param vjust Vertical adjustment for geoms that have a position (like points
+#'   or lines), not a dimension (like bars or areas). Set to 0 to align with the
+#'   bottom, 0.5 for the middle, and 1 (the default) for the top.
+#' @param reverse If TRUE, will reverse the default stacking order. This is
+#'   useful if you're rotating both the plot and legend.
+#'
+#' @seealso [ggplot2::position_nudge()], [ggrepel::position_nudge_repel()].
+#'
+#' @return A \code{"Position"} object.
+#'
+#' @export
+#'
+#' @author Michał Krassowski \url{http://linkedin.com/in/michal-krassowski/}
+#'   (revised by Pedro J. Aphalo)
+#'
+#' @examples
+#' df <- data.frame(y = c("a", "a", "b", "b", "b"),
+#'                  x = c(1, 2, 1, 3, -1),
+#'                  grp = c("some long name", "other name", "some name",
+#'                          "another name", "some long name"))
+#'
+#' ggplot(data = df, aes(x, y, group = grp)) +
+#'   geom_col(aes(fill = grp), width=0.5) +
+#'   geom_vline(xintercept = 0) +
+#'   geom_text(
+#'     aes(label = grp),
+#'     position = position_stack_and_nudge(vjust = 0.5, y = 0.3)) +
+#'   theme(legend.position = "none")
+#'
+#' ggplot(data = df, aes(y, x, group = grp)) +
+#'   geom_col(aes(fill = grp), width=0.5) +
+#'   geom_vline(xintercept = 0) +
+#'   geom_text(
+#'     aes(label = grp),
+#'     position = position_stack_and_nudge(vjust = 0.5, x = -0.3),
+#'     angle = 90) +
+#'   theme(legend.position = "none")
+#'
+#' ggplot(data = df, aes(y, x, group = grp)) +
+#'   geom_col(aes(fill = grp), width=0.5) +
+#'   geom_vline(xintercept = 0) +
+#'   geom_text(
+#'     aes(label = grp),
+#'     position = position_stack_and_nudge(vjust = 1, y = -0.2)) +
+#'   theme(legend.position = "none")
+#'
+#' ggplot(data = df, aes(x, y, group = grp)) +
+#'   geom_col(aes(fill = grp), width=0.5) +
+#'   geom_vline(xintercept = 0) +
+#'   geom_text_linked(
+#'     aes(label = grp),
+#'     position = position_stack_and_nudge(vjust = 0.5, y = 0.4),
+#'     vjust = "bottom") +
+#'   theme(legend.position = "none")
+#'
+position_stack_and_nudge <- function(x = 0, y = 0, vjust = 1, reverse = FALSE) {
+  ggplot2::ggproto(NULL, PositionStackAndNudge,
+          x = x,
+          y = y,
+          vjust = vjust,
+          reverse = reverse
+  )
+}
+
+#' @rdname ggpp-ggproto
+#' @format NULL
+#' @usage NULL
+#' @noRd
+PositionStackAndNudge <-
+  ggplot2::ggproto("PositionStackAndNudge", ggplot2::PositionStack,
+          x = 0,
+          y = 0,
+
+          setup_params = function(self, data) {
+            c(
+              list(x = self$x, y = self$y),
+              ggplot2::ggproto_parent(ggplot2::PositionStack, self)$setup_params(data)
+            )
+          },
+
+          compute_layer = function(self, data, params, panel) {
+            # operate on the stacked positions (updated in August 2020)
+            data = ggplot2::ggproto_parent(ggplot2::PositionStack, self)$compute_layer(data, params, panel)
+
+            x_orig <- data$x
+            y_orig <- data$y
+            # transform only the dimensions for which non-zero nudging is requested
+            if (any(params$x != 0)) {
+              if (any(params$y != 0)) {
+                data <- ggplot2::transform_position(data, function(x) x + params$x, function(y) y + params$y)
+              } else {
+                data <- ggplot2::transform_position(data, function(x) x + params$x, NULL)
+              }
+            } else if (any(params$y != 0)) {
+              data <- ggplot2::transform_position(data, function(x) x, function(y) y + params$y)
+            }
+            # add original position
+            data$x_orig <- x_orig
+            data$y_orig <- y_orig
+
+            data
+          },
+
+          compute_panel = function(self, data, params, scales) {
+            ggplot2::ggproto_parent(PositionStack, self)$compute_panel(data, params, scales)
+          }
+  )
diff --git a/man/position_nudge_center.Rd b/man/position_nudge_center.Rd
index 0053b5b..f802f76 100644
--- a/man/position_nudge_center.Rd
+++ b/man/position_nudge_center.Rd
@@ -256,6 +256,7 @@ ggplot(df, aes(x, z, color = group)) +
 
 Other position adjustments: 
 \code{\link{position_nudge_line}()},
-\code{\link{position_nudge_to}()}
+\code{\link{position_nudge_to}()},
+\code{\link{position_stack_and_nudge}()}
 }
 \concept{position adjustments}
diff --git a/man/position_nudge_line.Rd b/man/position_nudge_line.Rd
index 3d7497c..3e29011 100644
--- a/man/position_nudge_line.Rd
+++ b/man/position_nudge_line.Rd
@@ -245,6 +245,7 @@ ggplot(df, aes(x, y, label = l)) +
 
 Other position adjustments: 
 \code{\link{position_nudge_center}()},
-\code{\link{position_nudge_to}()}
+\code{\link{position_nudge_to}()},
+\code{\link{position_stack_and_nudge}()}
 }
 \concept{position adjustments}
diff --git a/man/position_nudge_to.Rd b/man/position_nudge_to.Rd
index edfd929..dbbbdbf 100644
--- a/man/position_nudge_to.Rd
+++ b/man/position_nudge_to.Rd
@@ -50,6 +50,7 @@ ggplot(df, aes(x, y, label = label)) +
 
 Other position adjustments: 
 \code{\link{position_nudge_center}()},
-\code{\link{position_nudge_line}()}
+\code{\link{position_nudge_line}()},
+\code{\link{position_stack_and_nudge}()}
 }
 \concept{position adjustments}
diff --git a/man/position_stack_and_nudge.Rd b/man/position_stack_and_nudge.Rd
new file mode 100644
index 0000000..d3ee08e
--- /dev/null
+++ b/man/position_stack_and_nudge.Rd
@@ -0,0 +1,92 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/position-nudge-stack.R
+\name{position_stack_and_nudge}
+\alias{position_stack_and_nudge}
+\title{Combined positions nudge and stack}
+\usage{
+position_stack_and_nudge(x = 0, y = 0, vjust = 1, reverse = FALSE)
+}
+\arguments{
+\item{x, y}{Amount of vertical and horizontal distance to move. A numeric
+vector of length 1, or of the same length as rows there are in `data`,}
+
+\item{vjust}{Vertical adjustment for geoms that have a position (like points
+or lines), not a dimension (like bars or areas). Set to 0 to align with the
+bottom, 0.5 for the middle, and 1 (the default) for the top.}
+
+\item{reverse}{If TRUE, will reverse the default stacking order. This is
+useful if you're rotating both the plot and legend.}
+}
+\value{
+A \code{"Position"} object.
+}
+\description{
+`position_stack_and_nudge()` is useful when labelling plots such as stacked
+bars, stacked columns, stacked lines, etc. In contrast to
+[ggplot2::position_nudge], `position_stack_and_nudge()` returns in `data`
+both the original coordinates and the nudged coordinates.
+}
+\details{
+This position function is backwards compatible with [ggplot2::position_nudge]
+but extends it by adding support for stacking and for the repulsive geometries
+from package 'ggrepel'.
+
+The wrapper `position_nudge_keep()` with exactly the same signature and
+behaviour as [ggplot2::position_nudge] provides an easier to remember name
+when the desire is only to have access to both the original and nudged
+coordinates.
+}
+\examples{
+df <- data.frame(y = c("a", "a", "b", "b", "b"),
+                 x = c(1, 2, 1, 3, -1),
+                 grp = c("some long name", "other name", "some name",
+                         "another name", "some long name"))
+
+ggplot(data = df, aes(x, y, group = grp)) +
+  geom_col(aes(fill = grp), width=0.5) +
+  geom_vline(xintercept = 0) +
+  geom_text(
+    aes(label = grp),
+    position = position_stack_and_nudge(vjust = 0.5, y = 0.3)) +
+  theme(legend.position = "none")
+
+ggplot(data = df, aes(y, x, group = grp)) +
+  geom_col(aes(fill = grp), width=0.5) +
+  geom_vline(xintercept = 0) +
+  geom_text(
+    aes(label = grp),
+    position = position_stack_and_nudge(vjust = 0.5, x = -0.3),
+    angle = 90) +
+  theme(legend.position = "none")
+
+ggplot(data = df, aes(y, x, group = grp)) +
+  geom_col(aes(fill = grp), width=0.5) +
+  geom_vline(xintercept = 0) +
+  geom_text(
+    aes(label = grp),
+    position = position_stack_and_nudge(vjust = 1, y = -0.2)) +
+  theme(legend.position = "none")
+
+ggplot(data = df, aes(x, y, group = grp)) +
+  geom_col(aes(fill = grp), width=0.5) +
+  geom_vline(xintercept = 0) +
+  geom_text_linked(
+    aes(label = grp),
+    position = position_stack_and_nudge(vjust = 0.5, y = 0.4),
+    vjust = "bottom") +
+  theme(legend.position = "none")
+
+}
+\seealso{
+[ggplot2::position_nudge()], [ggrepel::position_nudge_repel()].
+
+Other position adjustments: 
+\code{\link{position_nudge_center}()},
+\code{\link{position_nudge_line}()},
+\code{\link{position_nudge_to}()}
+}
+\author{
+Michał Krassowski \url{http://linkedin.com/in/michal-krassowski/}
+  (revised by Pedro J. Aphalo)
+}
+\concept{position adjustments}