Ygthkb

Build ASCII Podiums

UK visa start date and Flight Depature Time

Can a planet be tidally unlocked?

typeof generic and casted type

Integral problem. Unsure of the approach.

How do I avoid the "chosen hero" feeling?

Buying a "Used" Router

What did I blunder at move 23?

Is the UK legally prevented from having another referendum on Brexit?

How to store all ctor parameters in fields

Can I do anything else with aspersions other than cast them?

How can I make my enemies feel real and make combat more engaging?

What is an explicit bijection in combinatorics?

Manager has noticed coworker's excessive breaks. Should I warn him?

SQL Server 2017 crashes when backing up because filepath is wrong

Can you say "leftside right"?

Is there a way to pause a running process on Linux systems and resume later?

How can I handle players killing my NPC outside of combat?

Isn't a semicolon (';') needed after a function declaration in C++?

80-bit collision resistence because of 80-bit x87 registers?

Identical projects by students at two different colleges: still plagiarism?

Is there any danger of my neighbor having my wife's signature?

What's the function of the word "ли" in the following contexts?

How can I portray body horror and still be sensitive to people with disabilities?

Add number in the string after each letter

What is the difference between String and string in C#?How to validate an email address using a regular expression?How do I read / convert an InputStream into a String in Java?Case insensitive 'Contains(string)'Convert bytes to a string?How do I make the first letter of a string uppercase in JavaScript?How to replace all occurrences of a string in JavaScriptHow to check whether a string contains a substring in JavaScript?Does Python have a string 'contains' substring method?Why is char[] preferred over String for passwords?

7

1

I have several strings with a fixed format.

The format is one letter followed by a number, e.g., A3B1C7D1.

However, if the number behind a letter is 1, the string is written as A3BC7D.

What I want to do is to insert number 1, and convert the string from A3BC7D to A3B1C7D1.

My example data is

strings <- c("A", "A3BC3", "A2B1C")

What I want to get is:

strings_new <- c("A1", "A3B1C3", "A2B1C1")

Thanks a lot!

r regex string

share|improve this question

edited 2 hours ago

markus

13.1k1234

asked 3 hours ago

DongDong

1466

add a comment | 

7

1

I have several strings with a fixed format.

The format is one letter followed by a number, e.g., A3B1C7D1.

However, if the number behind a letter is 1, the string is written as A3BC7D.

What I want to do is to insert number 1, and convert the string from A3BC7D to A3B1C7D1.

My example data is

strings <- c("A", "A3BC3", "A2B1C")

What I want to get is:

strings_new <- c("A1", "A3B1C3", "A2B1C1")

Thanks a lot!

r regex string

share|improve this question

edited 2 hours ago

markus

13.1k1234

asked 3 hours ago

DongDong

1466

add a comment | 

I have several strings with a fixed format.

The format is one letter followed by a number, e.g., A3B1C7D1.

However, if the number behind a letter is 1, the string is written as A3BC7D.

What I want to do is to insert number 1, and convert the string from A3BC7D to A3B1C7D1.

My example data is

strings <- c("A", "A3BC3", "A2B1C")

What I want to get is:

strings_new <- c("A1", "A3B1C3", "A2B1C1")

Thanks a lot!

r regex string

share|improve this question

edited 2 hours ago

markus

13.1k1234

asked 3 hours ago

DongDong

1466

strings <- c("A", "A3BC3", "A2B1C")

strings_new <- c("A1", "A3B1C3", "A2B1C1")

share|improve this question

edited 2 hours ago

markus

13.1k1234

asked 3 hours ago

DongDong

1466

share|improve this question

edited 2 hours ago

markus

13.1k1234

asked 3 hours ago

DongDong

1466

edited 2 hours ago

markus

13.1k1234

edited 2 hours ago

markus

13.1k1234

asked 3 hours ago

DongDong

1466

asked 3 hours ago

DongDong

1466

3 Answers
3

active

oldest

votes

3

Another option:

gsub("([A-Za-z])(?=[A-Za-z])|([A-Za-z])$", "\1\21", strings, perl = T)

Output:

[1] "A1"     "A3B1C3" "A2B1C1"

Or if you only have capitals, just:

gsub("([A-Z])(?=[A-Z])|([A-Z])$", "\1\21", strings, perl = T)

Basically this finds letters that are either followed by another letter or are at the end of string, and replaces them with themselves while at the same time adds the desired number, 1 in this case.

share|improve this answer

edited 2 hours ago

answered 2 hours ago

arg0nautarg0naut

4,1191315

add a comment | 

2

Find all (uppercase) letters ([A-Z]) that is not followed by a number and replace it with that string + 1:

gsub("([A-Z])(?![0-9])", "\11", strings, perl = TRUE)

# [1] "A1"     "A3B1C3" "A2B1C1"

share|improve this answer

edited 25 mins ago

answered 50 mins ago

sindri_baldursindri_baldur

7,8041032

add a comment | 

0

strings[!grepl("[0-9]$",strings)]=paste0(strings[!grepl("[0-9]$",strings)],"1")

[1] "A1"     "A3BC3"  "A2B1C1"

We first grep all positions that do not end with a number, and paste a 1 to them.

share|improve this answer

answered 2 hours ago

boskiboski

490210

• 
  
  
  

  
  9
  

  
  
  
  
  
  

  
  
  Almost. Check the second element it should be "A3B1C3"
  
  – markus
  2 hours ago
  
  
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f54825764%2fadd-number-in-the-string-after-each-letter%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

3

Another option:

gsub("([A-Za-z])(?=[A-Za-z])|([A-Za-z])$", "\1\21", strings, perl = T)

Output:

[1] "A1"     "A3B1C3" "A2B1C1"

Or if you only have capitals, just:

gsub("([A-Z])(?=[A-Z])|([A-Z])$", "\1\21", strings, perl = T)

Basically this finds letters that are either followed by another letter or are at the end of string, and replaces them with themselves while at the same time adds the desired number, 1 in this case.

share|improve this answer

edited 2 hours ago

answered 2 hours ago

arg0nautarg0naut

4,1191315

add a comment | 

3

Another option:

gsub("([A-Za-z])(?=[A-Za-z])|([A-Za-z])$", "\1\21", strings, perl = T)

Output:

[1] "A1"     "A3B1C3" "A2B1C1"

Or if you only have capitals, just:

gsub("([A-Z])(?=[A-Z])|([A-Z])$", "\1\21", strings, perl = T)

Basically this finds letters that are either followed by another letter or are at the end of string, and replaces them with themselves while at the same time adds the desired number, 1 in this case.

share|improve this answer

edited 2 hours ago

answered 2 hours ago

arg0nautarg0naut

4,1191315

add a comment | 

Another option:

gsub("([A-Za-z])(?=[A-Za-z])|([A-Za-z])$", "\1\21", strings, perl = T)

Output:

[1] "A1"     "A3B1C3" "A2B1C1"

Or if you only have capitals, just:

gsub("([A-Z])(?=[A-Z])|([A-Z])$", "\1\21", strings, perl = T)

Basically this finds letters that are either followed by another letter or are at the end of string, and replaces them with themselves while at the same time adds the desired number, 1 in this case.

share|improve this answer

edited 2 hours ago

answered 2 hours ago

arg0nautarg0naut

4,1191315

gsub("([A-Za-z])(?=[A-Za-z])|([A-Za-z])$", "\1\21", strings, perl = T)

[1] "A1"     "A3B1C3" "A2B1C1"

gsub("([A-Z])(?=[A-Z])|([A-Z])$", "\1\21", strings, perl = T)

share|improve this answer

edited 2 hours ago

answered 2 hours ago

arg0nautarg0naut

4,1191315

answered 2 hours ago

arg0nautarg0naut

4,1191315

answered 2 hours ago

arg0nautarg0naut

4,1191315

2

Find all (uppercase) letters ([A-Z]) that is not followed by a number and replace it with that string + 1:

gsub("([A-Z])(?![0-9])", "\11", strings, perl = TRUE)

# [1] "A1"     "A3B1C3" "A2B1C1"

share|improve this answer

edited 25 mins ago

answered 50 mins ago

sindri_baldursindri_baldur

7,8041032

add a comment | 

2

Find all (uppercase) letters ([A-Z]) that is not followed by a number and replace it with that string + 1:

gsub("([A-Z])(?![0-9])", "\11", strings, perl = TRUE)

# [1] "A1"     "A3B1C3" "A2B1C1"

share|improve this answer

edited 25 mins ago

answered 50 mins ago

sindri_baldursindri_baldur

7,8041032

add a comment | 

Find all (uppercase) letters ([A-Z]) that is not followed by a number and replace it with that string + 1:

gsub("([A-Z])(?![0-9])", "\11", strings, perl = TRUE)

# [1] "A1"     "A3B1C3" "A2B1C1"

share|improve this answer

edited 25 mins ago

answered 50 mins ago

sindri_baldursindri_baldur

7,8041032

gsub("([A-Z])(?![0-9])", "\11", strings, perl = TRUE)

# [1] "A1"     "A3B1C3" "A2B1C1"

share|improve this answer

edited 25 mins ago

answered 50 mins ago

sindri_baldursindri_baldur

7,8041032

answered 50 mins ago

sindri_baldursindri_baldur

7,8041032

answered 50 mins ago

sindri_baldursindri_baldur

7,8041032

0

strings[!grepl("[0-9]$",strings)]=paste0(strings[!grepl("[0-9]$",strings)],"1")

[1] "A1"     "A3BC3"  "A2B1C1"

We first grep all positions that do not end with a number, and paste a 1 to them.

share|improve this answer

answered 2 hours ago

boskiboski

490210

• 
  
  
  

  
  9
  

  
  
  
  
  
  

  
  
  Almost. Check the second element it should be "A3B1C3"
  
  – markus
  2 hours ago
  
  
  

  
  
  
  

add a comment | 

0

strings[!grepl("[0-9]$",strings)]=paste0(strings[!grepl("[0-9]$",strings)],"1")

[1] "A1"     "A3BC3"  "A2B1C1"

We first grep all positions that do not end with a number, and paste a 1 to them.

share|improve this answer

answered 2 hours ago

boskiboski

490210

• 
  
  
  

  
  9
  

  
  
  
  
  
  

  
  
  Almost. Check the second element it should be "A3B1C3"
  
  – markus
  2 hours ago
  
  
  

  
  
  
  

add a comment | 

strings[!grepl("[0-9]$",strings)]=paste0(strings[!grepl("[0-9]$",strings)],"1")

[1] "A1"     "A3BC3"  "A2B1C1"

We first grep all positions that do not end with a number, and paste a 1 to them.

share|improve this answer

answered 2 hours ago

boskiboski

490210

strings[!grepl("[0-9]$",strings)]=paste0(strings[!grepl("[0-9]$",strings)],"1")

[1] "A1"     "A3BC3"  "A2B1C1"

share|improve this answer

answered 2 hours ago

boskiboski

490210

answered 2 hours ago

boskiboski

490210

answered 2 hours ago

boskiboski

490210